bug 3597: "delete all items" no longer deletes checked out or waiting items

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 6a50b9c..9676fd6 100755 (executable)
--- 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});
         }
        }
 #-------------------------------------------------------------------------------