[Koha-cvs] CVS: koha/acqui.simple savebiblio.pl,1.11,1.12

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14758/acqui.simple

Modified Files:
        savebiblio.pl 
Log Message:
various methods to split subjects (depending on OS)

Index: savebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** savebiblio.pl       13 Aug 2004 16:37:25 -0000      1.11
--- savebiblio.pl       8 Dec 2004 10:42:45 -0000       1.12
***************
*** 38,45 ****
  
  my $subjectheadings = $input->param('subjectheadings');
! my @subjects = split ( /\n/, $subjectheadings );
  my $biblionumber;
  my $aauthors = $input->param('additionalauthors');
! my @authors  = split ( /\n/, $aauthors );
  my $force    = $input->param('force');
  
--- 38,47 ----
  
  my $subjectheadings = $input->param('subjectheadings');
! # Different O.S.es use different codes to end lines. This ensures that all 
cases
! # are allowed for.
! my @subjects = split ( /\n|\r|\n\r|\r\n/, $subjectheadings );
  my $biblionumber;
  my $aauthors = $input->param('additionalauthors');
! my @authors  = split ( /\n|\r|\n\r|\r\n/, $aauthors );
  my $force    = $input->param('force');