From rangi@usw-pr-cvs1.sourceforge.net Tue Mar 13 14:39:22 2001
From: Chris Cornack <rangi@usw-pr-cvs1.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/maint catmaintain.pl,NONE,1.1
Date: Tue, 13 Mar 2001 14:41:23 -0800
Message-ID: <E14cxTn-0003YT-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============1986838048731709547=="

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

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

Added Files:
	catmaintain.pl=20
Log Message:
Shifted catmaintain.pl to a dir that can be easily passowrd protected


--- NEW FILE ---
#!/usr/bin/perl

#script to do some serious catalogue maintainance
#written 22/11/00
# by chris@katipo.co.nz

use strict;
use CGI;
use C4::Output;
use C4::Database;
use C4::Maintainance;

my $input =3D new CGI;
print $input->header;
my $type=3D$input->param('type');
print startpage();
print startmenu('catalog');
my $blah;
my $num=3D0;
my $offset=3D0;
if ($type eq 'allsub'){
  my $sub=3D$input->param('sub');
  my ($count,$results)=3Dlistsubjects($sub,$num,$offset);
  for (my $i=3D0;$i<$count;$i++){
    my $sub2=3D$results->[$i]->{'subject'};
    $sub2=3D~ s/ /%20/g;
    print "\"<a href=3D\"/cgi-bin/koha/maint/catmaintain.pl?type=3Dallsub&sub=
=3D$sub\" onclick=3D\'messenger(\"/cgi-bin/koha/maint/catmaintain.pl?type=3Dm=
odsub&sub=3D$sub2\");window1.focus()\'>$results->[$i]->{'subject'}\"</a><br>\=
n";
  }
} elsif ($type eq 'modsub'){
  my $sub=3D$input->param('sub');
  print "<form action=3D/cgi-bin/koha/maint/catmaintain.pl>";
  print "Subject:<input type=3Dtext value=3D\"$sub\" name=3Dsub size=3D40><br=
>\n";
  print "<input type=3Dhidden name=3Dtype value=3Dupsub>";
  print "<input type=3Dhidden name=3Doldsub value=3D\"$sub\">";
  print "<input type=3Dsubmit value=3Dmodify>";
#  print "<a href=3D\"nowhere\" onclick=3D\"document.forms[0].submit();\">Mod=
ify</a>";
  print "</form>";
  print "<p> This will change the subject headings on all the biblios this su=
bject is applied to"
} elsif ($type eq 'upsub'){
  my $sub=3D$input->param('sub');
  my $oldsub=3D$input->param('oldsub');
  updatesub($sub,$oldsub);
  print "Successfully modified $oldsub is now $sub";
  print "<p><a href=3D/cgi-bin/koha/maint/catmaintain.pl target=3Dwindow0 onc=
lick=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]->{'author=
'}</td><td><a href=3D/cgi-bin/koha/maint/catmaintain.pl?type=3Dfinun&bib=3D$r=
esults->[$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/maint/catmaintain.pl>Back to Catalogue Ma=
intenance</a>";
} else {
  print "<B>Subject Maintenance</b><br>";
  print "<form action=3D/cgi-bin/koha/maint/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/maint/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>";
}
print endmenu('catalog');
print endpage();



--===============1986838048731709547==--