[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha catmaintain.pl,1.1.1.1,1.2
From: |
Chris Cornack |
Subject: |
[Koha-devel] CVS: koha catmaintain.pl,1.1.1.1,1.2 |
Date: |
Tue, 13 Mar 2001 14:04:06 -0800 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv9482
Modified Files:
catmaintain.pl
Log Message:
Got undeleting biblios going (catalogue maintenance should probably be in a
password protected super librarian area or the like)
Index: catmaintain.pl
===================================================================
RCS file: /cvsroot/koha/koha/catmaintain.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** catmaintain.pl 2000/12/19 23:45:51 1.1.1.1
--- catmaintain.pl 2001/03/13 22:04:04 1.2
***************
*** 44,51 ****
--- 44,80 ----
print "<p><a href=/cgi-bin/koha/catmaintain.pl target=window0
onclick=\"window0.focus()\">Back to catalogue maintenance</a><br>";
print "<a href=nowhere onclick=\"self.close()\">Close this window</a>";
+ } elsif ($type eq 'undel'){
+ my $title=$input->param('title');
+ my ($count,$results)=deletedbib($title);
+ print "<table border=0>";
+ print
"<tr><td><b>Title</b></td><td><b>Author</b></td><td><b>Undelete</b></td></tr>";
+ for (my $i=0;$i<$count;$i++){
+ print
"<tr><td>$results->[$i]->{'title'}</td><td>$results->[$i]->{'author'}</td><td><a
href=/cgi-bin/koha/catmaintain.pl?type=finun&bib=$results->[$i]->{'biblionumber'}>Undelete</a></td>\n";
+ }
+ print "</table>";
+ } elsif ($type eq 'finun'){
+ my $bib=$input->param('bib');
+ undeletebib($bib);
+ print "Succesfully undeleted";
+ print "<p><a href=/cgi-bin/koha/catmaintain.pl>Back to Catalogue
Maintenance</a>";
} else {
+ print "<B>Subject Maintenance</b><br>";
print "<form action=/cgi-bin/koha/catmaintain.pl method=post>";
print "<input type=hidden name=type value=allsub>";
print "Show all subjects beginning with <input type=text name=sub><br>";
+ print "<input type=submit value=Show>";
+ print "</form>";
+ print "<p>";
+ print "<B>Group Maintenance</b></br>";
+ print "<form action=/cgi-bin/koha/search.pl method=post>";
+ print "<input type=hidden name=type value=catmain>";
+ print "Show all Titles beginning with <input type=text name=title><br>";
+ print "<input type=submit value=Show>";
+ print "</form>";
+ print "<p>";
+ print "<B>Undelete Biblio</b></br>";
+ print "<form action=/cgi-bin/koha/catmaintain.pl method=post>";
+ print "<input type=hidden name=type value=undel>";
+ print "Show all Titles beginning with <input type=text name=title><br>";
print "<input type=submit value=Show>";
print "</form>";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha catmaintain.pl,1.1.1.1,1.2,
Chris Cornack <=