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
29 sub plugin_parameters {
30 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
33 sub plugin_javascript {
34 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
35 my $function_name= "100".(int(rand(100000))+1);
38 function Focus$function_name(subfield_managed) {
42 function Blur$function_name(subfield_managed) {
46 function Clic$function_name(index) {
47 // find the 010a value and the 210c. it will be used in the popup to find possibles collections
49 for (i=0 ; i<document.f.field_value.length ; i++) {
50 if (document.f.tag[i].value == '010' && document.f.subfield[i].value == 'a') {
51 isbn_found=document.f.field_value[i].value;
55 for (i=0 ; i<document.f.field_value.length ; i++) {
56 if (document.f.tag[i].value == '210' && document.f.subfield[i].value == 'c') {
57 editor_found=document.f.field_value[i].value;
61 defaultvalue=document.f.field_value[index].value;
62 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');
68 return ($function_name,$res);
74 # my $input = new CGI;
75 my $index= $input->param('index');
76 my $result= $input->param('result');
77 my $editor_found = $input->param('editor_found');
78 my $isbn_found = $input->param('isbn_found');
79 my $dbh = C4::Context->dbh;
80 my $authoritysep = C4::Context->preference("authoritysep");
81 my $template = gettemplate("value_builder/unimarc_field_225a.tmpl",0);
82 # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
83 my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
84 my @splited = split //, $isbn_found;
87 foreach my $x (@splited) {
89 $sth->execute("$isbn_rebuild $authoritysep $editor_found $authoritysep");
90 while (my ($line)= $sth->fetchrow) {
91 push @collections,$line;
94 # my @collections = ["test"];
95 my $collection =CGI::scrolling_list(-name=>'f1',
96 -values=> \@collections,
101 $template->param(index => $index,
102 collection => $collection);
103 print "Content-Type: text/html\n\n", $template->output;