[Koha-cvs] CVS: koha/value_builder marc21_leader.pl,1.1.2.1,1.1.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	marc21_leader.pl 
Log Message:
fixing leader plugin for MARC21. Seems to work fine.

Index: marc21_leader.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/Attic/marc21_leader.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** marc21_leader.pl	29 Jul 2005 09:57:29 -0000	1.1.2.1
--- marc21_leader.pl	1 Aug 2005 12:02:51 -0000	1.1.2.2
***************
*** 53,57 ****
  function Clic$function_name(i) {
  	defaultvalue=document.forms[0].field_value[i].value;
! 	newin=window.open(\"../plugin_launcher.pl?plugin_name=leader.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,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=marc21_leader.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,toolbar=false,scrollbars=yes');
  
  }
***************
*** 73,77 ****
  
  my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "value_builder/leader.tmpl",
  			     query => $input,
  			     type => "intranet",
--- 73,77 ----
  
  my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "value_builder/marc21_leader.tmpl",
  			     query => $input,
  			     type => "intranet",
***************
*** 80,91 ****
  			     debug => 1,
  			     });
! 	my $f5 = substr($result,4,1);
! 	my $f6 = substr($result,5,1);
! 	my $f7 = substr($result,6,1);
! 	my $f8 = substr($result,7,1);
! 	my $f9 = substr($result,8,1);
! 	my $f17 = substr($result,16,1);
! 	my $f18 = substr($result,17,1);
! 	my $f19 = substr($result,18,1);
  
  	$template->param(index => $index,
--- 80,92 ----
  			     debug => 1,
  			     });
! 	$result = "     nam                 " unless $result;
! 	my $f5 = substr($result,5,1);
! 	my $f6 = substr($result,6,1);
! 	my $f7 = substr($result,7,1);
! 	my $f8 = substr($result,8,1);
! 	my $f9 = substr($result,9,1);
! 	my $f17 = substr($result,17,1);
! 	my $f18 = substr($result,18,1);
! 	my $f19 = substr($result,19,1);
  
  	$template->param(index => $index,