From 424127ae40bad7d869d56102d5acfafabe9ba4c4 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 21 Oct 2010 22:56:04 -0400 Subject: [PATCH] bug 3597: "delete all items" no longer deletes checked out or waiting items Signed-off-by: Galen Charlton --- cataloguing/additem.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 6a50b9c62a..9676fd65b8 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -269,7 +269,10 @@ if ($op eq "additem") { my $items = &GetItemsByBiblioitemnumber($biblioitem->{biblioitemnumber}); foreach my $item (@$items){ - &DelItem($dbh,$biblionumber,$item->{itemnumber}); + # FIXME although it won't delete items that have loans + # or waiting holds on them, should explicitly tell operator + # about items that are not deleted + &DelItemCheck($dbh,$biblionumber,$item->{itemnumber}); } } #------------------------------------------------------------------------------- -- 2.39.5