5 # Copyright 2000-2002 Katipo Communications
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along with
19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
20 # Suite 330, Boston, MA 02111-1307 USA
30 sub plugin_javascript {
31 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32 my $function_name= "100".(int(rand(100000))+1);
35 function Focus$function_name(subfield_managed) {
39 function Blur$function_name(subfield_managed) {
43 function Clic$function_name(index) {
44 // find the 010a value and the 210c. it will be used in the popup to find possibles collections
46 for (i=0 ; i<document.f.field_value.length ; i++) {
47 if (document.f.tag[i].value == '010' && document.f.subfield[i].value == 'a') {
48 isbn_found=document.f.field_value[i].value;
52 for (i=0 ; i<document.f.field_value.length ; i++) {
53 if (document.f.tag[i].value == '210' && document.f.subfield[i].value == 'c') {
54 editor_found=document.f.field_value[i].value;
58 defaultvalue=document.f.field_value[index].value;
59 newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_225a.pl&index=\"+index+\"&result=\"+defaultvalue+\"&isbn_found=\"+isbn_found+\"&editor_found=\"+editor_found,\"unimarc 225a\",'width=500,height=200,toolbar=false,scrollbars=no');
65 return ($function_name,$res);
71 # my $input = new CGI;
72 my $index= $input->param('index');
73 my $result= $input->param('result');
74 my $editor_found = $input->param('editor_found');
75 my $isbn_found = $input->param('isbn_found');
76 my $dbh = C4::Context->dbh;
77 my $authoritysep = C4::Context->preference("authoritysep");
78 my ($template, $loggedinuser, $cookie)
79 = get_template_and_user({template_name => "value_builder/unimarc_field_225a.tmpl",
83 flagsrequired => {parameters => 1},
86 # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
87 my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
88 my @splited = split //, $isbn_found;
91 foreach my $x (@splited) {
93 $sth->execute("$isbn_rebuild $authoritysep $editor_found $authoritysep");
94 while (my ($line)= $sth->fetchrow) {
95 push @collections,$line;
98 # my @collections = ["test"];
99 my $collection =CGI::scrolling_list(-name=>'f1',
100 -values=> \@collections,
105 $template->param(index => $index,
106 collection => $collection);
107 print $input->header(-cookie => $cookie),$template->output;