[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;