Accepts subjects separated by | or \n

diff --git a/updatebiblio.pl b/updatebiblio.pl
index 3064515..c8a607d 100755 (executable)
--- a/updatebiblio.pl
+++ b/updatebiblio.pl
@@ -58,7 +58,7 @@ my $error;
 &modaddauthor($bibnum, $addauthor);
 
 $subject = uc($subject);
-@sub     = split(/\|/, $subject);
+@sub     = split(/\||\n/, $subject);
 $count   = @sub;
 
 for (my $i = 0; $i < $count; $i++) {