clear out the hold_copy_map entries for holds cancelled via the clear-shelf processes

git-svn-id: svn://svn.open-ils.org/ILS/trunk@19525 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
index ec462c6..b85864b 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
@@ -2909,6 +2909,7 @@ sub clear_shelf_process {
         $hold->cancel_time('now');
         $hold->cancel_cause(2); # Hold Shelf expiration
         $e->update_action_hold_request($hold) or return $e->die_event;
+        delete_hold_copy_maps($self, $e, $hold->id) and return $e->die_event;
 
         my $copy = $hold->current_copy;