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_parameters {
31 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
34 sub plugin_javascript {
35 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
36 my $function_name= "100".(int(rand(100000))+1);
39 function Focus$function_name(subfield_managed) {
43 function Blur$function_name(subfield_managed) {
47 function Clic$function_name(index) {
48 // find the 010a value and the 210c. it will be used in the popup to find possibles collections
50 for (i=0 ; i<document.f.field_value.length ; i++) {
51 if (document.f.tag[i].value == '010' && document.f.subfield[i].value == 'a') {
52 isbn_found=document.f.field_value[i].value;
56 for (i=0 ; i<document.f.field_value.length ; i++) {
57 if (document.f.tag[i].value == '210' && document.f.subfield[i].value == 'c') {
58 editor_found=document.f.field_value[i].value;
62 defaultvalue=document.f.field_value[index].value;
63 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');
69 return ($function_name,$res);
75 # my $input = new CGI;
76 my $index= $input->param('index');
77 my $result= $input->param('result');
78 my $editor_found = $input->param('editor_found');
79 my $isbn_found = $input->param('isbn_found');
80 my $dbh = C4::Context->dbh;
81 my $authoritysep = C4::Context->preference("authoritysep");
82 my ($template, $loggedinuser, $cookie)
83 = get_template_and_user({template_name => "value_builder/unimarc_field_225a.tmpl",
87 flagsrequired => {parameters => 1},
90 # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
91 my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
92 my @splited = split //, $isbn_found;
95 foreach my $x (@splited) {
97 $sth->execute("$isbn_rebuild $authoritysep $editor_found $authoritysep");
98 while (my ($line)= $sth->fetchrow) {
99 push @collections,$line;
102 # my @collections = ["test"];
103 my $collection =CGI::scrolling_list(-name=>'f1',
104 -values=> \@collections,
109 $template->param(index => $index,
110 collection => $collection);
111 print $input->header(-cookie => $cookie),$template->output;