when deleting an itemtype, don't check issuingrules, but delete them too

diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl
index 8564c9c..64fe84a 100755 (executable)
--- a/admin/itemtypes.pl
+++ b/admin/itemtypes.pl
@@ -130,7 +130,7 @@ if ($op eq 'add_form') {
 
        # Check both categoryitem and biblioitems, see Bug 199
        my $total = 0;
-       for my $table ('issuingrules', 'biblioitems') {
+       for my $table ('biblioitems') {
           my $sth=$dbh->prepare("select count(*) as total from $table where itemtype=?");
           $sth->execute($itemtype);
           $total += $sth->fetchrow_hashref->{total};
@@ -156,6 +156,8 @@ if ($op eq 'add_form') {
        my $itemtype=uc($input->param('itemtype'));
        my $sth=$dbh->prepare("delete from itemtypes where itemtype=?");
        $sth->execute($itemtype);
+       $sth = $dbh->prepare("delete from issuingrules where itemtype=?");
+       $sth->execute($itemtype);
        $sth->finish;
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";
        exit;