Bug 14199: Unify marc orgcode plugins, not overwriting existing values
[koha.git] / cataloguing / value_builder / marc21_field_003.pl
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 };