From 003f583b43af8cb939025b63d3d04e249fb41655 Mon Sep 17 00:00:00 2001 From: rangi Date: Tue, 13 Mar 2001 22:41:21 +0000 Subject: [PATCH] Shifted catmaintain.pl to a dir that can be easily passowrd protected --- catmaintain.pl => maint/catmaintain.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) rename catmaintain.pl => maint/catmaintain.pl (76%) diff --git a/catmaintain.pl b/maint/catmaintain.pl similarity index 76% rename from catmaintain.pl rename to maint/catmaintain.pl index a0201b29cd..2facac2047 100755 --- a/catmaintain.pl +++ b/maint/catmaintain.pl @@ -24,11 +24,11 @@ if ($type eq 'allsub'){ for (my $i=0;$i<$count;$i++){ my $sub2=$results->[$i]->{'subject'}; $sub2=~ s/ /%20/g; - print "\"$results->[$i]->{'subject'}\"
\n"; + print "\"$results->[$i]->{'subject'}\"
\n"; } } elsif ($type eq 'modsub'){ my $sub=$input->param('sub'); - print "
"; + print ""; print "Subject:
\n"; print ""; print ""; @@ -41,7 +41,7 @@ if ($type eq 'allsub'){ my $oldsub=$input->param('oldsub'); updatesub($sub,$oldsub); print "Successfully modified $oldsub is now $sub"; - print "

Back to catalogue maintenance
"; + print "

Back to catalogue maintenance
"; print "Close this window"; } elsif ($type eq 'undel'){ my $title=$input->param('title'); @@ -49,17 +49,17 @@ if ($type eq 'allsub'){ print ""; print ""; for (my $i=0;$i<$count;$i++){ - print "\n"; + print "\n"; } print "
TitleAuthorUndelete
$results->[$i]->{'title'}$results->[$i]->{'author'}[$i]->{'biblionumber'}>Undelete
$results->[$i]->{'title'}$results->[$i]->{'author'}[$i]->{'biblionumber'}>Undelete
"; } elsif ($type eq 'finun'){ my $bib=$input->param('bib'); undeletebib($bib); print "Succesfully undeleted"; - print "

Back to Catalogue Maintenance"; + print "

Back to Catalogue Maintenance"; } else { print "Subject Maintenance
"; - print ""; + print ""; print ""; print "Show all subjects beginning with
"; print ""; @@ -73,7 +73,7 @@ if ($type eq 'allsub'){ print "

"; print "

"; print "Undelete Biblio
"; - print "

"; + print ""; print ""; print "Show all Titles beginning with
"; print ""; -- 2.39.5