From e077776ec72d1988bba9f02ae58632a0131fee3d Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 20 Dec 2002 14:50:50 +0000 Subject: [PATCH] Forgotten plugin... --- value_builder/unimarc_field_210c.pl | 121 ++++++++++++++++++++++++++++ 1 file changed, 121 insertions(+) create mode 100644 value_builder/unimarc_field_210c.pl diff --git a/value_builder/unimarc_field_210c.pl b/value_builder/unimarc_field_210c.pl new file mode 100644 index 0000000000..6c7644b898 --- /dev/null +++ b/value_builder/unimarc_field_210c.pl @@ -0,0 +1,121 @@ +#!/usr/bin/perl + +# $Id$ + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use C4::Auth; +use CGI; +use C4::Context; +use HTML::Template; +use C4::Search; +use C4::Output; + +=head1 + +plugin_parameters : other parameters added when the plugin is called by the dopop function + +=cut +sub plugin_parameters { +my ($dbh,$record,$tagslib,$i,$tabloop) = @_; +return ""; +} + +=head1 + +plugin_javascript : the javascript function called when the user enters the subfield. +contain 3 javascript functions : +* one called when the field is entered (OnFocus). Named FocusXXX +* one called when the field is leaved (onBlur). Named BlurXXX +* one called when the ... link is clicked () named ClicXXX + +returns : +* XXX +* a variable containing the 3 scripts. +the 3 scripts are inserted after the in the html code + +=cut +sub plugin_javascript { +my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; +my $function_name= "210c".(int(rand(100000))+1); +#---- build editors list. +#---- the editor list is built from the "EDITORS" thesaurus +#---- this thesaurus category must be filled as follow : +#---- isbn_identifier authorityseparator editor authorityseparator collection +#---- sample : 2224 -- Cerf -- Sources chrétiennes +my $sth = $dbh->prepare("select father,stdlib from bibliothesaurus where category='EDITORS' and level=2"); +$sth->execute; +my @editors; +my $authoritysep = C4::Context->preference("authoritysep"); +while (my ($father,$stdlib) = $sth->fetchrow) { + push(@editors,"$father $stdlib"); +} +my $res = " + +"; +return ($function_name,$res); +} + +=head1 + +plugin : the true value_builded. The screen that is open in the popup window. + +=cut + +sub plugin { +my ($input) = @_; + my $index = $input->param("index"); + print "Content-Type: text/html\n\n"; + exit; +} + +1; -- 2.39.5