my $count;
my $error;
-&modbiblio($biblio);
&modsubtitle($bibnum, $subtitle);
&modaddauthor($bibnum, $addauthor);
$subject = uc($subject);
-@sub = split(/\|/, $subject);
+@sub = split(/\||\n/, $subject);
$count = @sub;
for (my $i = 0; $i < $count; $i++) {
$error = &modsubject($bibnum,$force,@sub);
+&modbiblio($biblio);
+
if ($error ne ''){
my ($template, $loggedinuser, $cookie) = get_template_and_user({
template_name => "updatebiblio.tmpl",