From bb98c06076091b95ea5f677cec6a6d0b7ba2fb86 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 20 Dec 2002 14:02:39 +0000
Subject: [PATCH] changes to reflect official API

---
 value_builder/unimarc_field_100.pl         |  6 +--
 value_builder/unimarc_field_225a.pl        |  6 +--
 value_builder/unimarc_field_700-4.pl       | 43 ++++++++++------------
 value_builder/unimarc_field_700_701_702.pl |  6 +--
 4 files changed, 22 insertions(+), 39 deletions(-)

diff --git a/value_builder/unimarc_field_100.pl b/value_builder/unimarc_field_100.pl
index e2f0f282a7..6ca4317481 100755
--- a/value_builder/unimarc_field_100.pl
+++ b/value_builder/unimarc_field_100.pl
@@ -27,12 +27,8 @@ use HTML::Template;
 use C4::Search;
 use C4::Output;
 
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
 sub plugin_javascript {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
+my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
 my $function_name= "100".(int(rand(100000))+1);
 my $res="
 <script>
diff --git a/value_builder/unimarc_field_225a.pl b/value_builder/unimarc_field_225a.pl
index ee998718a1..6b38bdf92f 100644
--- a/value_builder/unimarc_field_225a.pl
+++ b/value_builder/unimarc_field_225a.pl
@@ -27,12 +27,8 @@ use HTML::Template;
 use C4::Search;
 use C4::Output;
 
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
 sub plugin_javascript {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
+my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
 my $function_name= "100".(int(rand(100000))+1);
 my $res="
 <script>
diff --git a/value_builder/unimarc_field_700-4.pl b/value_builder/unimarc_field_700-4.pl
index bc0cac00bb..d3812b5908 100755
--- a/value_builder/unimarc_field_700-4.pl
+++ b/value_builder/unimarc_field_700-4.pl
@@ -43,33 +43,28 @@ This plug-in deals with unimarc field 700-4 (
 
 =cut
 
-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++;
-		}
-	}
+sub plugin_javascript {
+my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
+my $function_name= "7004".(int(rand(100000))+1);
+my $res  = "
+<script>
+function Focus$function_name(index) {
+	return 1;
 }
-#	my $index2=6;
-	return "&index2=$index2";
+
+function Blur$function_name(subfield_managed) {
+	return 1;
 }
 
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return ("","");
+function Clic$function_name(subfield_managed) {
+	defaultvalue=document.forms[0].field_value[1].value;
+	newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_700-4.pl&result=\"+defaultvalue+\"&index=$field_number\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes');
+
+}
+</script>
+";
+
+return ($function_name,$res);
 }
 
 sub plugin {
diff --git a/value_builder/unimarc_field_700_701_702.pl b/value_builder/unimarc_field_700_701_702.pl
index 24215b4069..685d038587 100644
--- a/value_builder/unimarc_field_700_701_702.pl
+++ b/value_builder/unimarc_field_700_701_702.pl
@@ -28,12 +28,8 @@ use C4::Search;
 use C4::Output;
 use C4::Authorities;
 
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
 sub plugin_javascript {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
+my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
 my $function_name= "100".(int(rand(100000))+1);
 my $res="
 <script>
-- 
2.39.5