[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="