- Adding classification to list of returned variables

[koha.git] / acqui.simple / savebiblio.pl

diff --git a/acqui.simple/savebiblio.pl b/acqui.simple/savebiblio.pl
index d203646..f9de3b0 100755 (executable)
--- a/acqui.simple/savebiblio.pl
+++ b/acqui.simple/savebiblio.pl
@@ -37,10 +37,12 @@ my $biblio = {
 };    # my $biblio
 
 my $subjectheadings = $input->param('subjectheadings');
-my @subjects = split ( /\n/, $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/, $aauthors );
+my @authors  = split ( /\n|\r|\n\r|\r\n/, $aauthors );
 my $force    = $input->param('force');
 
 if ( !$biblio->{'title'} ) {