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