[Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2

[Chris Cormack]

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>";