From rangi@usw-pr-cvs1.sourceforge.net Tue Mar 13 14:02:05 2001
From: Chris Cornack <rangi@usw-pr-cvs1.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha catmaintain.pl,1.1.1.1,1.2
Date: Tue, 13 Mar 2001 14:04:06 -0800
Message-ID: <E14cwti-0002V0-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5703857541293954581=="

--===============5703857541293954581==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv9482

Modified Files:
	catmaintain.pl=20
Log Message:
Got undeleting biblios going (catalogue maintenance should probably be in a=20
password protected super librarian area or the like)



Index: catmaintain.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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=3D/cgi-bin/koha/catmaintain.pl target=3Dwindow0 onclick=
=3D\"window0.focus()\">Back to catalogue maintenance</a><br>";
    print "<a href=3Dnowhere onclick=3D\"self.close()\">Close this window</a>=
";
+ } elsif ($type eq 'undel'){
+   my $title=3D$input->param('title');
+   my ($count,$results)=3Ddeletedbib($title);
+   print "<table border=3D0>";
+   print "<tr><td><b>Title</b></td><td><b>Author</b></td><td><b>Undelete</b>=
</td></tr>";
+   for (my $i=3D0;$i<$count;$i++){
+     print "<tr><td>$results->[$i]->{'title'}</td><td>$results->[$i]->{'auth=
or'}</td><td><a href=3D/cgi-bin/koha/catmaintain.pl?type=3Dfinun&bib=3D$resul=
ts->[$i]->{'biblionumber'}>Undelete</a></td>\n";
+   }
+   print "</table>";
+ } elsif ($type eq 'finun'){
+   my $bib=3D$input->param('bib');
+   undeletebib($bib);
+   print "Succesfully undeleted";
+   print "<p><a href=3D/cgi-bin/koha/catmaintain.pl>Back to Catalogue Mainte=
nance</a>";
  } else {
+   print "<B>Subject Maintenance</b><br>";
    print "<form action=3D/cgi-bin/koha/catmaintain.pl method=3Dpost>";
    print "<input type=3Dhidden name=3Dtype value=3Dallsub>";
    print "Show all subjects beginning with <input type=3Dtext name=3Dsub><br=
>";
+   print "<input type=3Dsubmit value=3DShow>";
+   print "</form>";
+   print "<p>";
+   print "<B>Group Maintenance</b></br>";
+   print "<form action=3D/cgi-bin/koha/search.pl method=3Dpost>";
+   print "<input type=3Dhidden name=3Dtype value=3Dcatmain>";
+   print "Show all Titles beginning with <input type=3Dtext name=3Dtitle><br=
>";
+   print "<input type=3Dsubmit value=3DShow>";
+   print "</form>";
+   print "<p>";
+   print "<B>Undelete Biblio</b></br>";
+   print "<form action=3D/cgi-bin/koha/catmaintain.pl method=3Dpost>";
+   print "<input type=3Dhidden name=3Dtype value=3Dundel>";
+   print "Show all Titles beginning with <input type=3Dtext name=3Dtitle><br=
>";
    print "<input type=3Dsubmit value=3DShow>";
    print "</form>";



--===============5703857541293954581==--