[Koha-cvs] CVS: koha/admin itemtypes.pl,1.15,1.16

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28937/admin

Modified Files:
	itemtypes.pl 
Log Message:
when deleting an itemtype, don't check issuingrules, but delete them too

Index: itemtypes.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** itemtypes.pl	13 Sep 2004 15:20:28 -0000	1.15
--- itemtypes.pl	2 Dec 2004 16:37:33 -0000	1.16
***************
*** 131,135 ****
  	# Check both categoryitem and biblioitems, see Bug 199
  	my $total = 0;
! 	for my $table ('issuingrules', 'biblioitems') {
  	   my $sth=$dbh->prepare("select count(*) as total from $table where itemtype=?");
  	   $sth->execute($itemtype);
--- 131,135 ----
  	# Check both categoryitem and biblioitems, see Bug 199
  	my $total = 0;
! 	for my $table ('biblioitems') {
  	   my $sth=$dbh->prepare("select count(*) as total from $table where itemtype=?");
  	   $sth->execute($itemtype);
***************
*** 157,160 ****
--- 157,162 ----
  	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>";