Accepts subjects separated by | or \n
This commit is contained in:
parent
31b20b5015
commit
2feeb123ce
1 changed files with 1 additions and 1 deletions
|
@ -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++) {
|
||||
|
|
Loading…
Reference in a new issue