From rangi@users.sourceforge.net Thu Mar 15 02:13:48 2001 From: Chris Cormack To: koha-devel@lists.koha-community.org Subject: [Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2 Date: Thu, 15 Mar 2001 02:15:53 -0800 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0899095905793427978==" --===============0899095905793427978== 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-serv6565/maint Modified Files: catmaintain.pl=20 Log Message: Added functionality to allow invalid itemtype to be fixed 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/maint/catmaintain.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** catmaintain.pl 2001/03/13 22:41:21 1.1 --- catmaintain.pl 2001/03/15 10:15:51 1.2 *************** *** 58,61 **** --- 58,76 ---- print "Succesfully undeleted"; print "

Back to Catalogue = Maintenance"; + } elsif ($type eq 'fixitemtype'){ + my $bi=3D$input->param('bi'); + my $item=3D$input->param('item'); + print "

"; + print ""; + print ""; + print "Itemtype:
\n"; + print ""; + print "
"; + } elsif ($type eq 'updatetype'){ + my $bi=3D$input->param('bi'); + my $itemtype=3D$input->param('itemtype'); + updatetype($bi,$itemtype); + print "Updated successfully"; + print "

Back to Catalogue = Maintenance"; } else { print "Subject Maintenance
"; --===============0899095905793427978==--