Bug 17702: Add UI to manage account credit types
[koha.git] / cataloguing / value_builder / unimarc_field_135a.pl
blobc38cd90baa50ebdedbacdb1d434f294f943a68a7
1 #!/usr/bin/perl
4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use Modern::Perl;
23 use Koha::Util::FrameworkPlugin qw(wrapper);
24 use C4::Auth;
25 use CGI qw ( -utf8 );
26 use C4::Context;
28 use C4::Search;
29 use C4::Output;
31 sub plugin_javascript {
32 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33 my $function_name= $field_number;
34 my $res="
35 <script>
36 function Clic$function_name(i) {
37 defaultvalue=document.getElementById(\"$field_number\").value;
38 newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_135a.pl&index=$field_number&result=\"+defaultvalue,\"unimarc_field_135a\",'width=1000,height=375,toolbar=false,scrollbars=yes');
41 </script>
44 return ($function_name,$res);
48 sub plugin {
49 my ($input) = @_;
50 my $index= $input->param('index');
51 my $result= $input->param('result');
54 my $dbh = C4::Context->dbh;
56 my ($template, $loggedinuser, $cookie)
57 = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_135a.tt",
58 query => $input,
59 type => "intranet",
60 authnotrequired => 0,
61 flagsrequired => {editcatalogue => '*'},
62 debug => 1,
63 });
64 my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
65 my $f2 = substr($result,1,1);
66 my $f3 = substr($result,2,1);
67 my $f4 = substr($result,3,1);
68 my $f5 = substr($result,4,3);
69 my $f6 = substr($result,7,1);
70 my $f7 = substr($result,8,1);
71 my $f8 = substr($result,9,1);
72 my $f9 = substr($result,10,1);
74 $template->param(index => $index,
75 "f1$f1" => 1,
76 "f2$f2" => 1,
77 "f3$f3" => 1,
78 "f4$f4" => 1,
79 "f5" => $f5,
80 "f6$f6" => 1,
81 "f7$f7" => 1,
82 "f8$f8" => 1,
83 "f9$f9" => 1
86 output_html_with_http_headers $input, $cookie, $template->output;