[Koha-cvs] CVS: koha/value_builder unimarc_field_135a.pl,1.1,1.2

[doXulting]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12278/value_builder

Modified Files:
        unimarc_field_135a.pl 
Log Message:
Plugin for field 135a

Index: unimarc_field_135a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_135a.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** unimarc_field_135a.pl       7 Jun 2004 10:07:40 -0000       1.1
--- unimarc_field_135a.pl       2 Jun 2005 15:51:18 -0000       1.2
***************
*** 53,57 ****
  function Clic$function_name(i) {
        defaultvalue=document.forms[0].field_value[i].value;
!       
newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_135a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc
 field 135a\",'width=1000,height=375,toolbar=false,scrollbars=yes');
  
  }
--- 53,57 ----
  function Clic$function_name(i) {
        defaultvalue=document.forms[0].field_value[i].value;
!       
newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_135a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc
 field 135a\",'width=800,height=400,toolbar=false,scrollbars=yes');
  
  }
***************
*** 84,104 ****
        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;
--- 84,107 ----
        my $f3 = substr($result,2,1);
        my $f4 = substr($result,3,1);
!       my $f5 = substr($result,4,1);
!       my $f6 = substr($result,5,3);
        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);
  
!       $template->param("index" => $index,
                         "f1$f1" => $f1,
                         "f2$f2" => $f2,
                         "f3$f3" => $f3,
                         "f4$f4" => $f4,
!                        "f5$f5" => $f5,
!                        "f6" => $f6,
                         "f7$f7" => $f7,
                         "f8$f8" => $f8,
!                        "f9$f9" => $f9,
!                        "f10$f10" => $f10,
!                        "f11$f11" => $f11
  );
        print $input->header(-cookie => $cookie),$template->output;