From 628783cb3093f8afd6f64ff01157b5027e9b2fe7 Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 28 Jun 2002 12:19:50 +0000 Subject: [PATCH] merging 1.2 and main branches --- updatebiblio.pl | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/updatebiblio.pl b/updatebiblio.pl index 8ba684e13c..f85582846b 100755 --- a/updatebiblio.pl +++ b/updatebiblio.pl @@ -47,20 +47,21 @@ $error = &modsubject($bibnum,$force,@sub); if ($error ne ''){ print $input->header; print startpage(); - print startmenu(); + print startmenu('catalogue'); print $error; - @subs = split('\n',$error); + my @subs=split('\n',$error); print "

Click submit to force the subject"; - @names = $input->param; - $count = @names; - for (my $i = 0; $i < $count; $i++) { + my @names=$input->param; + my %data; + my $count=@names; + for (my $i=0;$i<$count;$i++) { if ($names[$i] ne 'Force') { - my $value = $input->param("$names[$i]"); - $data{$names[$i]} = "hidden\t$value\t$i"; + my $value=$input->param("$names[$i]"); + $data{$names[$i]}="hidden\t$value\t$i"; } # if } # for - $data{"Force"} = "hidden\t$subs[0]\t$count"; - print mkform3('updatebiblio.pl', %data); + $data{"Force"}="hidden\t$subs[0]\t$count"; + print mkform3('updatebiblio.pl',%data); print endmenu(); print endpage(); } else { @@ -69,7 +70,7 @@ if ($error ne ''){ sub checkinp{ my ($inp)=@_; - $inp =~ s/\'/\\\'/g; - $inp =~ s/\"/\\\"/g; + $inp=~ s/\'/\\\'/g; + $inp=~ s/\"/\\\"/g; return($inp); } -- 2.39.5