[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2 |
Date: |
Thu, 15 Mar 2001 02:15:53 -0800 |
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>";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/maint catmaintain.pl,1.1,1.2,
Chris Cormack <=