View | Details | Raw Unified | Return to bug 14199
Collapse All | Expand All

(-)a/cataloguing/value_builder/marc21_field_003.pl (-46 lines)
Lines 1-46 Link Here
1
#!/usr/bin/perl
2
3
# Converted to new plugin style (Bug 13437)
4
5
6
# Copyright 2000-2002 Katipo Communications
7
#
8
# This file is part of Koha.
9
#
10
# Koha is free software; you can redistribute it and/or modify it
11
# under the terms of the GNU General Public License as published by
12
# the Free Software Foundation; either version 3 of the License, or
13
# (at your option) any later version.
14
#
15
# Koha is distributed in the hope that it will be useful, but
16
# WITHOUT ANY WARRANTY; without even the implied warranty of
17
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18
# GNU General Public License for more details.
19
#
20
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
23
use Modern::Perl;
24
use C4::Context;
25
26
my $builder = sub {
27
    my ( $params ) = @_;
28
    my $function_name = $params->{id};
29
30
    my $org = C4::Context->preference('MARCOrgCode');
31
    my $res  = "
32
<script type=\"text/javascript\">
33
//<![CDATA[
34
35
function Focus$function_name(event) {
36
    document.getElementById(event.data.id).value='$org';
37
    return 0;
38
}
39
40
//]]>
41
</script>
42
";
43
    return $res;
44
};
45
46
return { builder => $builder };
(-)a/cataloguing/value_builder/marc21_field_040c.pl (-45 lines)
Lines 1-45 Link Here
1
#!/usr/bin/perl
2
3
# Converted to new plugin style (Bug 13437)
4
5
# Copyright 2000-2002 Katipo Communications
6
#
7
# This file is part of Koha.
8
#
9
# Koha is free software; you can redistribute it and/or modify it
10
# under the terms of the GNU General Public License as published by
11
# the Free Software Foundation; either version 3 of the License, or
12
# (at your option) any later version.
13
#
14
# Koha is distributed in the hope that it will be useful, but
15
# WITHOUT ANY WARRANTY; without even the implied warranty of
16
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17
# GNU General Public License for more details.
18
#
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22
use Modern::Perl;
23
use C4::Context;
24
25
my $builder = sub {
26
    my ( $params ) = @_;
27
    my $function_name = $params->{id};
28
29
    my $org = C4::Context->preference('MARCOrgCode');
30
    my $res  = "
31
<script type=\"text/javascript\">
32
//<![CDATA[
33
34
function Focus$function_name(event) {
35
    document.getElementById(event.data.id).value='$org';
36
    return 0;
37
}
38
39
//]]>
40
</script>
41
";
42
    return $res;
43
};
44
45
return { builder => $builder };
(-)a/cataloguing/value_builder/marc21_field_040d.pl (-45 lines)
Lines 1-45 Link Here
1
#!/usr/bin/perl
2
3
# Converted to new plugin style (Bug 13437)
4
5
# Copyright 2000-2002 Katipo Communications
6
#
7
# This file is part of Koha.
8
#
9
# Koha is free software; you can redistribute it and/or modify it
10
# under the terms of the GNU General Public License as published by
11
# the Free Software Foundation; either version 3 of the License, or
12
# (at your option) any later version.
13
#
14
# Koha is distributed in the hope that it will be useful, but
15
# WITHOUT ANY WARRANTY; without even the implied warranty of
16
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17
# GNU General Public License for more details.
18
#
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22
use Modern::Perl;
23
use C4::Context;
24
25
my $builder = sub {
26
    my ( $params ) = @_;
27
    my $function_name = $params->{id};
28
29
    my $org = C4::Context->preference('MARCOrgCode');
30
    my $res  = "
31
<script type=\"text/javascript\">
32
//<![CDATA[
33
34
function Focus$function_name(event) {
35
    document.getElementById(event.data.id).value='$org';
36
    return 0;
37
}
38
39
//]]>
40
</script>
41
";
42
    return $res;
43
};
44
45
return { builder => $builder };
(-)a/installer/data/mysql/atomicupdate/14199_MarcOrgCode.sql (-1 / +3 lines)
Line 0 Link Here
0
- 
1
-- move marc21_field_003.pl 040c and 040d to marc21_orgcode.pl
2
update marc_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' );
3
update auth_subfield_structure set value_builder='marc21_orgcode.pl' where value_builder IN ( 'marc21_field_003.pl', 'marc21_field_040c.pl', 'marc21_field_040d.pl' );

Return to bug 14199