[Koha-cvs] CVS: koha/value_builder unimarc_field_100.pl,1.4,1.5 unimarc_field_225a.pl,1.2,1.3 unimarc_field_700-4.pl,1.3,1.4 unimarc_field_700_701_702.pl,1.2,1.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1:/tmp/cvs-serv7215/value_builder

Modified Files:
	unimarc_field_100.pl unimarc_field_225a.pl 
	unimarc_field_700-4.pl unimarc_field_700_701_702.pl 
Log Message:
changes to reflect official API

Index: unimarc_field_100.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_100.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** unimarc_field_100.pl	12 Dec 2002 16:36:50 -0000	1.4
--- unimarc_field_100.pl	20 Dec 2002 14:02:39 -0000	1.5
***************
*** 28,37 ****
  use C4::Output;
  
- sub plugin_parameters {
- my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
- return "";
- }
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="
--- 28,33 ----
  use C4::Output;
  
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="

Index: unimarc_field_225a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** unimarc_field_225a.pl	12 Dec 2002 16:36:50 -0000	1.2
--- unimarc_field_225a.pl	20 Dec 2002 14:02:39 -0000	1.3
***************
*** 28,37 ****
  use C4::Output;
  
- sub plugin_parameters {
- my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
- return "";
- }
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="
--- 28,33 ----
  use C4::Output;
  
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="

Index: unimarc_field_700-4.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_700-4.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** unimarc_field_700-4.pl	12 Dec 2002 16:36:50 -0000	1.3
--- unimarc_field_700-4.pl	20 Dec 2002 14:02:39 -0000	1.4
***************
*** 44,74 ****
  =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++;
! 		}
! 	}
  }
! #	my $index2=6;
! 	return "&index2=$index2";
  }
  
! sub plugin_javascript {
! my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
! return ("","");
  }
  
--- 44,69 ----
  =cut
  
! 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;
  }
! 
! function Blur$function_name(subfield_managed) {
! 	return 1;
  }
  
! 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);
  }
  

Index: unimarc_field_700_701_702.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_700_701_702.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** unimarc_field_700_701_702.pl	12 Dec 2002 16:36:50 -0000	1.2
--- unimarc_field_700_701_702.pl	20 Dec 2002 14:02:39 -0000	1.3
***************
*** 29,38 ****
  use C4::Authorities;
  
- sub plugin_parameters {
- my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
- return "";
- }
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="
--- 29,34 ----
  use C4::Authorities;
  
  sub plugin_javascript {
! my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  my $function_name= "100".(int(rand(100000))+1);
  my $res="