Update of /cvsroot/koha/koha/maint In directory usw-pr-cvs1:/tmp/cvs-serv6565/maint Modified Files: catmaintain.pl Log Message: Added functionality to allow invalid itemtype to be fixed Index: catmaintain.pl =================================================================== 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 "<p><a href=/cgi-bin/koha/maint/catmaintain.pl>Back to Catalogue Maintenance</a>"; + } elsif ($type eq 'fixitemtype'){ + my $bi=$input->param('bi'); + my $item=$input->param('item'); + print "<form method=post action=/cgi-bin/koha/maint/catmaintain.pl>"; + print "<input type=hidden name=bi value=$bi>"; + print "<input type=hidden name=type value=updatetype>"; + print "Itemtype:<input type=text name=itemtype value=$item><br>\n"; + print "<input type=submit value=Change>"; + print "</form>"; + } elsif ($type eq 'updatetype'){ + my $bi=$input->param('bi'); + my $itemtype=$input->param('itemtype'); + updatetype($bi,$itemtype); + print "Updated successfully"; + print "<p><a href=/cgi-bin/koha/maint/catmaintain.pl>Back to Catalogue Maintenance</a>"; } else { print "<B>Subject Maintenance</b><br>";