From aad055090a3c6b8f1f7963a23aadf0f4a914ff0a Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Dec 2004 10:42:45 +0000
Subject: [PATCH] various methods to split subjects (depending on OS)

---
 acqui.simple/savebiblio.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/savebiblio.pl b/acqui.simple/savebiblio.pl
index d203646d92..f9de3b08d5 100755
--- 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'} ) {
-- 
2.39.5