From 0a177f5263d09dcbab73551a31b4df01d82ff1f9 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 19 Nov 2002 12:45:31 +0000
Subject: [PATCH] road to 1.3.2 various bugfixes, improvments

---
 value_builder/unimarc_field_100.pl   | 55 ++++++++++++---------
 value_builder/unimarc_field_700-4.pl | 74 ++++++++++++++++++++++++++++
 2 files changed, 105 insertions(+), 24 deletions(-)
 create mode 100755 value_builder/unimarc_field_700-4.pl

diff --git a/value_builder/unimarc_field_100.pl b/value_builder/unimarc_field_100.pl
index 384cb6c5d2..988b66bf0d 100755
--- a/value_builder/unimarc_field_100.pl
+++ b/value_builder/unimarc_field_100.pl
@@ -26,27 +26,34 @@ use HTML::Template;
 use C4::Search;
 use C4::Output;
 
-# get all the data ....
-my %env;
-
-my $input = new CGI;
-my $index= $input->param('index');
-my $result= $input->param('result');
-
-
-my $dbh = C4::Context->dbh;
-
-my $template = gettemplate("value_builder/unimarc_field_100.tmpl",0);
-my $f1 = substr($result,0,8);
-my $f2 = substr($result,8,1);
-my $f3 = substr($result,9,4);
-my $f4 = substr($result,13,4);
-warn "f2 : $f2";
-$template->param(index => $index,
-						f1 => $f1,
-						f3 => $f3,
-						"f2$f2" => $f2,
-						f4 => $f4);
-print "Content-Type: text/html\n\n", $template->output;
-
-
+sub plugin_parameters {
+my ($dbh,$record,$tagslib) = @_;
+return "";
+}
+
+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 = gettemplate("value_builder/unimarc_field_100.tmpl",0);
+	my $f1 = substr($result,0,8);
+	my $f2 = substr($result,8,1);
+	my $f3 = substr($result,9,4);
+	my $f4 = substr($result,13,4);
+	warn "f2 : $f2";
+	$template->param(index => $index,
+							f1 => $f1,
+							f3 => $f3,
+							"f2$f2" => $f2,
+							f4 => $f4);
+	print "Content-Type: text/html\n\n", $template->output;
+}
+
+1;
diff --git a/value_builder/unimarc_field_700-4.pl b/value_builder/unimarc_field_700-4.pl
new file mode 100755
index 0000000000..7022df20de
--- /dev/null
+++ b/value_builder/unimarc_field_700-4.pl
@@ -0,0 +1,74 @@
+#!/usr/bin/perl
+
+# written 10/5/2002 by Paul
+
+# 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 CGI;
+use C4::Context;
+use HTML::Template;
+use C4::Search;
+use C4::Output;
+
+sub plugin_parameters {
+my ($dbh,$record,$tagslib,$morethan,$begin_tabloop) = @_;
+my $index2; # the resulting index
+my $i;		# counter
+# loop to find 700$a subfield. We look for the 1st after $i
+for (my $tabloop = $begin_tabloop; $tabloop<=9;$tabloop++) {
+	my @loop_data =();
+	foreach my $tag (keys %{$tagslib}) {
+# loop through each subfield
+		foreach my $subfield (keys %{$tagslib->{$tag}}) {
+			next if ($subfield eq 'lib'); # skip lib and tabs, which are koha internal
+			next if ($subfield eq 'tab');
+			next if ($tagslib->{$tag}->{$subfield}->{tab}  ne $tabloop);
+			if ($tag eq '700' && $subfield eq 'a' && $i>$morethan) {
+				$index2 = $i;
+			}
+			$i++;
+		}
+	}
+}
+#	my $index2=6;
+	return "&index2=$index2";
+}
+
+sub plugin {
+my ($input) = @_;
+	my %env;
+
+#	my $input = new CGI;
+	my $index= $input->param('index');
+	my $index2= $input->param('index2');
+	$index2=-1 unless($index2);
+	my $result= $input->param('result');
+
+
+	my $dbh = C4::Context->dbh;
+
+	my $template = gettemplate("value_builder/unimarc_field_700-4.tmpl",0);
+	$template->param(index => $index,
+							index2 => $index2,
+							"f1_$result" => "f1_".$result,
+							);
+	print "Content-Type: text/html\n\n", $template->output;
+}
+
+1;
-- 
2.39.2