From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 23 Feb 2011 22:22:32 +0000 (+0000)
Subject: clear out the hold_copy_map entries for holds cancelled via the clear-shelf processes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8d549e24ab972063dfdbfdd5f61de1e6004b3642;p=working%2FEvergreen.git

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

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index caaf688086..0184a07426 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/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;