[open-ils-commits] r19527 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-23 17:22:32 -0500 (Wed, 23 Feb 2011)
New Revision: 19527

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
clear out the hold_copy_map entries for holds cancelled via the clear-shelf processes

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2011-02-23 22:21:26 UTC (rev 19526)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2011-02-23 22:22:32 UTC (rev 19527)
@@ -2909,6 +2909,7 @@
         $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;