From 83b44c2a8ce508acb816642462acfaf848b79c6d Mon Sep 17 00:00:00 2001 From: doxulting Date: Thu, 2 Jun 2005 15:44:02 +0000 Subject: [PATCH] Plugin for field 123i --- value_builder/unimarc_field_123i.pl | 94 +++++++++++++++++++++++++++++ 1 file changed, 94 insertions(+) create mode 100644 value_builder/unimarc_field_123i.pl diff --git a/value_builder/unimarc_field_123i.pl b/value_builder/unimarc_field_123i.pl new file mode 100644 index 0000000000..31426bc7a0 --- /dev/null +++ b/value_builder/unimarc_field_123i.pl @@ -0,0 +1,94 @@ +#!/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 ""; +} + +sub plugin_javascript { +my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; +my $function_name= "123i".(int(rand(100000))+1); +my $res=" + +"; + +return ($function_name,$res); +} +sub plugin { +my ($input) = @_; + my %env; + +# my $input = new CGI; + my $index= $input->param('index'); + my $result= $input->param('result'); + + + my $dbh = C4::Context->dbh; + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "value_builder/unimarc_field_123i.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,3); + my $f3 = substr($result,4,2); + my $f4 = substr($result,6,2); + $template->param(index => $index, + "f1$f1" => $f1, + f2 => $f2, + f3 => $f3, + f4 => $f4); + print $input->header(-cookie => $cookie),$template->output; +} + +1; -- 2.39.5