diff --git a/C4/Items.pm b/C4/Items.pm index e720aa1c62..6c31440fb9 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -2226,11 +2226,14 @@ sub DelItemCheck { # check that there is no issue on this item before deletion. - my $sth=$dbh->prepare("select * from issues i where i.itemnumber=?"); + my $sth = $dbh->prepare(q{ + SELECT COUNT(*) FROM issues + WHERE itemnumber = ? + }); $sth->execute($itemnumber); + my ($onloan) = $sth->fetchrow; my $item = GetItem($itemnumber); - my $onloan=$sth->fetchrow; if ($onloan){ $error = "book_on_loan" @@ -2243,9 +2246,13 @@ sub DelItemCheck { } else{ # check it doesnt have a waiting reserve - $sth=$dbh->prepare("SELECT * FROM reserves WHERE (found = 'W' or found = 'T') AND itemnumber = ?"); + $sth = $dbh->prepare(q{ + SELECT COUNT(*) FROM reserves + WHERE (found = 'W' OR found = 'T') + AND itemnumber = ? + }); $sth->execute($itemnumber); - my $reserve=$sth->fetchrow; + my ($reserve) = $sth->fetchrow; if ($reserve){ $error = "book_reserved"; } elsif ($countanalytics > 0){