From e80f1f8f607182e69824cb153e6b328c5368caf7 Mon Sep 17 00:00:00 2001 From: doxulting Date: Mon, 7 Jun 2004 10:07:40 +0000 Subject: [PATCH] The files launching the templates --- value_builder/unimarc_field_100.pl | 31 ++++++- value_builder/unimarc_field_105.pl | 114 ++++++++++++++++++++++++ value_builder/unimarc_field_106.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_110.pl | 104 ++++++++++++++++++++++ value_builder/unimarc_field_115a.pl | 122 +++++++++++++++++++++++++ value_builder/unimarc_field_115b.pl | 108 +++++++++++++++++++++++ value_builder/unimarc_field_116.pl | 111 +++++++++++++++++++++++ value_builder/unimarc_field_117.pl | 97 ++++++++++++++++++++ value_builder/unimarc_field_120.pl | 106 ++++++++++++++++++++++ value_builder/unimarc_field_121a.pl | 102 +++++++++++++++++++++ value_builder/unimarc_field_121b.pl | 100 +++++++++++++++++++++ value_builder/unimarc_field_122.pl | 96 ++++++++++++++++++++ value_builder/unimarc_field_123a.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_123d.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_123e.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_123f.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_123g.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_124.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_124a.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124b.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124c.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124d.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124e.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124f.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_124g.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_125.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_125a.pl | 89 +++++++++++++++++++ value_builder/unimarc_field_125b.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_126.pl | 94 ++++++++++++++++++++ value_builder/unimarc_field_126a.pl | 117 ++++++++++++++++++++++++ value_builder/unimarc_field_126b.pl | 93 ++++++++++++++++++++ value_builder/unimarc_field_127.pl | 92 +++++++++++++++++++ value_builder/unimarc_field_128a.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_128b.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_128c.pl | 88 +++++++++++++++++++ value_builder/unimarc_field_130.pl | 107 ++++++++++++++++++++++ value_builder/unimarc_field_135a.pl | 107 ++++++++++++++++++++++ value_builder/unimarc_field_140.pl | 132 ++++++++++++++++++++++++++++ value_builder/unimarc_field_141.pl | 104 ++++++++++++++++++++++ 39 files changed, 3731 insertions(+), 3 deletions(-) create mode 100755 value_builder/unimarc_field_105.pl create mode 100755 value_builder/unimarc_field_106.pl create mode 100755 value_builder/unimarc_field_110.pl create mode 100755 value_builder/unimarc_field_115a.pl create mode 100755 value_builder/unimarc_field_115b.pl create mode 100755 value_builder/unimarc_field_116.pl create mode 100755 value_builder/unimarc_field_117.pl create mode 100755 value_builder/unimarc_field_120.pl create mode 100755 value_builder/unimarc_field_121a.pl create mode 100755 value_builder/unimarc_field_121b.pl create mode 100755 value_builder/unimarc_field_122.pl create mode 100755 value_builder/unimarc_field_123a.pl create mode 100755 value_builder/unimarc_field_123d.pl create mode 100755 value_builder/unimarc_field_123e.pl create mode 100755 value_builder/unimarc_field_123f.pl create mode 100755 value_builder/unimarc_field_123g.pl create mode 100755 value_builder/unimarc_field_124.pl create mode 100755 value_builder/unimarc_field_124a.pl create mode 100755 value_builder/unimarc_field_124b.pl create mode 100755 value_builder/unimarc_field_124c.pl create mode 100755 value_builder/unimarc_field_124d.pl create mode 100755 value_builder/unimarc_field_124e.pl create mode 100755 value_builder/unimarc_field_124f.pl create mode 100755 value_builder/unimarc_field_124g.pl create mode 100755 value_builder/unimarc_field_125.pl create mode 100755 value_builder/unimarc_field_125a.pl create mode 100755 value_builder/unimarc_field_125b.pl create mode 100755 value_builder/unimarc_field_126.pl create mode 100755 value_builder/unimarc_field_126a.pl create mode 100755 value_builder/unimarc_field_126b.pl create mode 100755 value_builder/unimarc_field_127.pl create mode 100755 value_builder/unimarc_field_128a.pl create mode 100755 value_builder/unimarc_field_128b.pl create mode 100755 value_builder/unimarc_field_128c.pl create mode 100755 value_builder/unimarc_field_130.pl create mode 100755 value_builder/unimarc_field_135a.pl create mode 100755 value_builder/unimarc_field_140.pl create mode 100755 value_builder/unimarc_field_141.pl diff --git a/value_builder/unimarc_field_100.pl b/value_builder/unimarc_field_100.pl index 3c2d012183..f8a1713d19 100755 --- a/value_builder/unimarc_field_100.pl +++ b/value_builder/unimarc_field_100.pl @@ -52,7 +52,7 @@ function Blur$function_name(subfield_managed) { function Clic$function_name(i) { defaultvalue=document.forms[0].field_value[i].value; - newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=500,height=400,toolbar=false,scrollbars=yes'); + newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,toolbar=false,scrollbars=yes'); } @@ -82,12 +82,37 @@ my ($template, $loggedinuser, $cookie) my $f1 = substr($result,0,8); my $f2 = substr($result,8,1); my $f3 = substr($result,9,4); - my $f4 = substr($result,13,4); + my $f4 = substr($result,13,4); + my $f5 = substr($result,17,1); + my $f6 = substr($result,18,1); + my $f7 = substr($result,19,1); + my $f8 = substr($result,20,1); + my $f9 = substr($result,21,1); + my $f10 = substr($result,22,3); + my $f11 = substr($result,25,1); + my $f12 = substr($result,26,2); + my $f13 = substr($result,28,2); + my $f14 = substr($result,30,4); + my $f15 = substr($result,34,2); + + $template->param(index => $index, f1 => $f1, f3 => $f3, "f2$f2" => $f2, - f4 => $f4); + f4 => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10" => $f10, + "f11$f11" => $f11, + "f12$f12" => $f12, + "f13$f13" => $f13, + "f14" => $f14, + "f15$f15" => $f15 + ); print $input->header(-cookie => $cookie),$template->output; } diff --git a/value_builder/unimarc_field_105.pl b/value_builder/unimarc_field_105.pl new file mode 100755 index 0000000000..5550ed6b98 --- /dev/null +++ b/value_builder/unimarc_field_105.pl @@ -0,0 +1,114 @@ +#!/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= "105".(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_105.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,1); + + my $f9 = substr($result,8,1); + my $f10 = substr($result,9,1); + my $f11 = substr($result,10,1); + my $f12 = substr($result,11,1); + my $f13 = substr($result,12,1); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10, + "f11$f11" => $f11, + "f12$f12" => $f12, + "f13$f13" => $f13 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_106.pl b/value_builder/unimarc_field_106.pl new file mode 100755 index 0000000000..9dab4cb870 --- /dev/null +++ b/value_builder/unimarc_field_106.pl @@ -0,0 +1,88 @@ +#!/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= "106".(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'); + +warn ("Je suis quand meme ici\n"); + my $dbh = C4::Context->dbh; +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "value_builder/unimarc_field_106.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_110.pl b/value_builder/unimarc_field_110.pl new file mode 100755 index 0000000000..66bfe2ab2f --- /dev/null +++ b/value_builder/unimarc_field_110.pl @@ -0,0 +1,104 @@ +#!/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= "110".(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_110.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,3); + my $f6 = substr($result,7,1); + my $f7 = substr($result,8,1); + my $f8 = substr($result,9,1); + my $f9 = substr($result,10,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + f5 => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_115a.pl b/value_builder/unimarc_field_115a.pl new file mode 100755 index 0000000000..0628f53cf6 --- /dev/null +++ b/value_builder/unimarc_field_115a.pl @@ -0,0 +1,122 @@ +#!/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= "115a".(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_115a.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,1); + my $f4 = substr($result,5,1); + my $f5 = substr($result,6,1); + my $f6 = substr($result,7,1); + my $f7 = substr($result,8,1); + my $f8 = substr($result,9,1); + my $f9 = substr($result,10,1); + my $f10 = substr($result,11,1); + my $f11 = substr($result,12,1); + my $f12 = substr($result,13,1); + my $f13 = substr($result,14,1); + my $f14 = substr($result,15,1); + my $f15 = substr($result,16,1); + my $f16 = substr($result,17,1); + my $f17 = substr($result,18,1); + my $f18 = substr($result,19,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10, + "f11$f11" => $f11, + "f12$f12" => $f12, + "f13$f13" => $f13, + "f14$f14" => $f14, + "f15$f15" => $f15, + "f16$f16" => $f16, + "f17$f17" => $f17, + "f18$f18" => $f18 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_115b.pl b/value_builder/unimarc_field_115b.pl new file mode 100755 index 0000000000..30af9a3c9f --- /dev/null +++ b/value_builder/unimarc_field_115b.pl @@ -0,0 +1,108 @@ +#!/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= "115b".(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_115b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,1); + my $f9 = substr($result,8,1); + my $f10 = substr($result,9,4); + my $f11 = substr($result,13,2); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10" => $f10, + "f11" => $f11 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_116.pl b/value_builder/unimarc_field_116.pl new file mode 100755 index 0000000000..4186d0fad3 --- /dev/null +++ b/value_builder/unimarc_field_116.pl @@ -0,0 +1,111 @@ +#!/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= "116".(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_116.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + + my $f5 = substr($result,4,2); + my $f6 = substr($result,6,2); + my $f7 = substr($result,8,2); + + my $f8 = substr($result,10,2); + my $f9 = substr($result,12,2); + my $f10 = substr($result,14,2); + + my $f11 = substr($result,16,2); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10, + "f11$f11" => $f11 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_117.pl b/value_builder/unimarc_field_117.pl new file mode 100755 index 0000000000..e3509fc054 --- /dev/null +++ b/value_builder/unimarc_field_117.pl @@ -0,0 +1,97 @@ +#!/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= "117".(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_117.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + my $f2 = substr($result,2,2); + my $f3 = substr($result,4,2); + my $f4 = substr($result,6,2); + + my $f5 = substr($result,8,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5 + ); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_120.pl b/value_builder/unimarc_field_120.pl new file mode 100755 index 0000000000..2e3cfe3988 --- /dev/null +++ b/value_builder/unimarc_field_120.pl @@ -0,0 +1,106 @@ +#!/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= "120".(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_120.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,2); + my $f9 = substr($result,9,2); + my $f10 = substr($result,11,2); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_121a.pl b/value_builder/unimarc_field_121a.pl new file mode 100755 index 0000000000..cafa35bba0 --- /dev/null +++ b/value_builder/unimarc_field_121a.pl @@ -0,0 +1,102 @@ +#!/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= "121a".(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_121a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,2); + my $f5 = substr($result,5,1); + my $f6 = substr($result,6,1); + my $f7 = substr($result,7,1); + my $f8 = substr($result,8,1); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_121b.pl b/value_builder/unimarc_field_121b.pl new file mode 100755 index 0000000000..e9d7bf0dcd --- /dev/null +++ b/value_builder/unimarc_field_121b.pl @@ -0,0 +1,100 @@ +#!/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= "121b".(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_121b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,2); + my $f4 = substr($result,4,1); + my $f5 = substr($result,5,1); + my $f6 = substr($result,6,1); + my $f7 = substr($result,7,1); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + f3 => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_122.pl b/value_builder/unimarc_field_122.pl new file mode 100755 index 0000000000..d31c1e681f --- /dev/null +++ b/value_builder/unimarc_field_122.pl @@ -0,0 +1,96 @@ +#!/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= "122".(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_122.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,4); + my $f3 = substr($result,5,2); + my $f4 = substr($result,7,2); + my $f5 = substr($result,9,2); + $template->param(index => $index, + "f1$f1" => $f1, + f2 => $f2, + f3 => $f3, + f4 => $f4, + f5 => $f5); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_123a.pl b/value_builder/unimarc_field_123a.pl new file mode 100755 index 0000000000..ca9be39f30 --- /dev/null +++ b/value_builder/unimarc_field_123a.pl @@ -0,0 +1,88 @@ +#!/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= "123a".(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_123a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_123d.pl b/value_builder/unimarc_field_123d.pl new file mode 100755 index 0000000000..92846e2465 --- /dev/null +++ b/value_builder/unimarc_field_123d.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= "123g".(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_123g.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; diff --git a/value_builder/unimarc_field_123e.pl b/value_builder/unimarc_field_123e.pl new file mode 100755 index 0000000000..92846e2465 --- /dev/null +++ b/value_builder/unimarc_field_123e.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= "123g".(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_123g.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; diff --git a/value_builder/unimarc_field_123f.pl b/value_builder/unimarc_field_123f.pl new file mode 100755 index 0000000000..92846e2465 --- /dev/null +++ b/value_builder/unimarc_field_123f.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= "123g".(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_123g.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; diff --git a/value_builder/unimarc_field_123g.pl b/value_builder/unimarc_field_123g.pl new file mode 100755 index 0000000000..92846e2465 --- /dev/null +++ b/value_builder/unimarc_field_123g.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= "123g".(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_123g.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; diff --git a/value_builder/unimarc_field_124.pl b/value_builder/unimarc_field_124.pl new file mode 100755 index 0000000000..3c2d012183 --- /dev/null +++ b/value_builder/unimarc_field_124.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= "100".(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_100.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,8); + my $f2 = substr($result,8,1); + my $f3 = substr($result,9,4); + my $f4 = substr($result,13,4); + $template->param(index => $index, + f1 => $f1, + f3 => $f3, + "f2$f2" => $f2, + f4 => $f4); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124a.pl b/value_builder/unimarc_field_124a.pl new file mode 100755 index 0000000000..cebe76fd40 --- /dev/null +++ b/value_builder/unimarc_field_124a.pl @@ -0,0 +1,88 @@ +#!/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= "124a".(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_124a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124b.pl b/value_builder/unimarc_field_124b.pl new file mode 100755 index 0000000000..b312b029c1 --- /dev/null +++ b/value_builder/unimarc_field_124b.pl @@ -0,0 +1,88 @@ +#!/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= "124b".(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_124b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124c.pl b/value_builder/unimarc_field_124c.pl new file mode 100755 index 0000000000..d9e8e2c926 --- /dev/null +++ b/value_builder/unimarc_field_124c.pl @@ -0,0 +1,88 @@ +#!/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= "124c".(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_124c.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124d.pl b/value_builder/unimarc_field_124d.pl new file mode 100755 index 0000000000..6e5ef99be5 --- /dev/null +++ b/value_builder/unimarc_field_124d.pl @@ -0,0 +1,88 @@ +#!/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= "124d".(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_124d.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124e.pl b/value_builder/unimarc_field_124e.pl new file mode 100755 index 0000000000..bcbd9392a3 --- /dev/null +++ b/value_builder/unimarc_field_124e.pl @@ -0,0 +1,88 @@ +#!/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= "124e".(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_124e.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124f.pl b/value_builder/unimarc_field_124f.pl new file mode 100755 index 0000000000..36df3f3193 --- /dev/null +++ b/value_builder/unimarc_field_124f.pl @@ -0,0 +1,88 @@ +#!/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= "124f".(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_124f.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_124g.pl b/value_builder/unimarc_field_124g.pl new file mode 100755 index 0000000000..69bdf02552 --- /dev/null +++ b/value_builder/unimarc_field_124g.pl @@ -0,0 +1,88 @@ +#!/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= "124g".(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_124g.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_125.pl b/value_builder/unimarc_field_125.pl new file mode 100755 index 0000000000..3c2d012183 --- /dev/null +++ b/value_builder/unimarc_field_125.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= "100".(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_100.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,8); + my $f2 = substr($result,8,1); + my $f3 = substr($result,9,4); + my $f4 = substr($result,13,4); + $template->param(index => $index, + f1 => $f1, + f3 => $f3, + "f2$f2" => $f2, + f4 => $f4); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_125a.pl b/value_builder/unimarc_field_125a.pl new file mode 100755 index 0000000000..9656d14ba4 --- /dev/null +++ b/value_builder/unimarc_field_125a.pl @@ -0,0 +1,89 @@ +#!/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= "125a".(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_125a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + $template->param(index => $index, + "f1$f1" => $f1,"f2$f2" => $f2); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_125b.pl b/value_builder/unimarc_field_125b.pl new file mode 100755 index 0000000000..b1af74e4e8 --- /dev/null +++ b/value_builder/unimarc_field_125b.pl @@ -0,0 +1,88 @@ +#!/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= "125b".(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_125b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_126.pl b/value_builder/unimarc_field_126.pl new file mode 100755 index 0000000000..3c2d012183 --- /dev/null +++ b/value_builder/unimarc_field_126.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= "100".(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_100.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,8); + my $f2 = substr($result,8,1); + my $f3 = substr($result,9,4); + my $f4 = substr($result,13,4); + $template->param(index => $index, + f1 => $f1, + f3 => $f3, + "f2$f2" => $f2, + f4 => $f4); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_126a.pl b/value_builder/unimarc_field_126a.pl new file mode 100755 index 0000000000..0c4db5ce8e --- /dev/null +++ b/value_builder/unimarc_field_126a.pl @@ -0,0 +1,117 @@ +#!/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= "126a".(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_126a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,1); + my $f9 = substr($result,8,1); + my $f10 = substr($result,9,1); + my $f11 = substr($result,10,1); + my $f12 = substr($result,11,1); + my $f13 = substr($result,12,1); + my $f14 = substr($result,13,1); + my $f15 = substr($result,14,1); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10, + "f11$f11" => $f11, + "f12$f12" => $f12, + "f13$f13" => $f13, + "f14$f14" => $f14, + "f15$f15" => $f15 +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_126b.pl b/value_builder/unimarc_field_126b.pl new file mode 100755 index 0000000000..a84b75179a --- /dev/null +++ b/value_builder/unimarc_field_126b.pl @@ -0,0 +1,93 @@ +#!/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= "126b".(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_126b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3 +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_127.pl b/value_builder/unimarc_field_127.pl new file mode 100755 index 0000000000..7eebb7f466 --- /dev/null +++ b/value_builder/unimarc_field_127.pl @@ -0,0 +1,92 @@ +#!/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= "127".(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_127.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + my $f2 = substr($result,2,2); + my $f3 = substr($result,4,2); + $template->param(index => $index, + "f1" => $f1, + f2 => $f2, + f3 => $f3); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_128a.pl b/value_builder/unimarc_field_128a.pl new file mode 100755 index 0000000000..463bbd43f8 --- /dev/null +++ b/value_builder/unimarc_field_128a.pl @@ -0,0 +1,88 @@ +#!/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= "128a".(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_128a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_128b.pl b/value_builder/unimarc_field_128b.pl new file mode 100755 index 0000000000..2b643861b3 --- /dev/null +++ b/value_builder/unimarc_field_128b.pl @@ -0,0 +1,88 @@ +#!/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= "128b".(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_128b.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_128c.pl b/value_builder/unimarc_field_128c.pl new file mode 100755 index 0000000000..d190f662f3 --- /dev/null +++ b/value_builder/unimarc_field_128c.pl @@ -0,0 +1,88 @@ +#!/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= "128c".(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_128c.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,2); + $template->param(index => $index, + "f1$f1" => $f1); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_130.pl b/value_builder/unimarc_field_130.pl new file mode 100755 index 0000000000..be984cc098 --- /dev/null +++ b/value_builder/unimarc_field_130.pl @@ -0,0 +1,107 @@ +#!/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= "130".(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_130.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,3); + my $f6 = substr($result,7,1); + my $f7 = substr($result,8,1); + my $f8 = substr($result,9,1); + my $f9 = substr($result,10,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9 + +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_135a.pl b/value_builder/unimarc_field_135a.pl new file mode 100755 index 0000000000..c39bd75843 --- /dev/null +++ b/value_builder/unimarc_field_135a.pl @@ -0,0 +1,107 @@ +#!/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-135a7 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= "135a".(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_135a.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,3); + my $f6 = substr($result,7,1); + my $f7 = substr($result,8,1); + my $f8 = substr($result,9,1); + my $f9 = substr($result,10,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9 + +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_140.pl b/value_builder/unimarc_field_140.pl new file mode 100755 index 0000000000..f2246473f4 --- /dev/null +++ b/value_builder/unimarc_field_140.pl @@ -0,0 +1,132 @@ +#!/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-1407 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= "140".(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_140.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,1); + my $f9 = substr($result,8,1); + my $f10 = substr($result,9,2); + my $f11 = substr($result,11,2); + my $f12 = substr($result,13,2); + my $f13 = substr($result,15,2); + my $f14 = substr($result,17,2); + my $f15 = substr($result,19,1); + my $f16 = substr($result,20,1); + my $f17 = substr($result,21,1); + my $f18 = substr($result,22,1); + my $f19 = substr($result,23,1); + my $f20 = substr($result,24,1); + my $f21 = substr($result,25 ,1); + +warn "Dans ce cas clea nous fait un f17 => $f17\n"; + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8, + "f9$f9" => $f9, + "f10$f10" => $f10, + "f11$f11" => $f11, + "f12$f12" => $f12, + "f13$f13" => $f13, + "f14$f14" => $f14, + "f15$f15" => $f15, + "f16$f16" => $f16, + "f17$f17" => $f17, + "f18$f18" => $f18, + "f19$f19" => $f19, + "f20$f20" => $f20, + "f21$f21" => $f21 +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; diff --git a/value_builder/unimarc_field_141.pl b/value_builder/unimarc_field_141.pl new file mode 100755 index 0000000000..4c4abadd86 --- /dev/null +++ b/value_builder/unimarc_field_141.pl @@ -0,0 +1,104 @@ +#!/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-1417 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= "141".(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_141.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + my $f1 = substr($result,0,1); + my $f2 = substr($result,1,1); + my $f3 = substr($result,2,1); + my $f4 = substr($result,3,1); + my $f5 = substr($result,4,1); + my $f6 = substr($result,5,1); + my $f7 = substr($result,6,1); + my $f8 = substr($result,7,1); + + $template->param(index => $index, + "f1$f1" => $f1, + "f2$f2" => $f2, + "f3$f3" => $f3, + "f4$f4" => $f4, + "f5$f5" => $f5, + "f6$f6" => $f6, + "f7$f7" => $f7, + "f8$f8" => $f8 +); + print $input->header(-cookie => $cookie),$template->output; +} + +1; -- 2.39.2