[open-ils-commits] r19526 - branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-23 17:21:26 -0500 (Wed, 23 Feb 2011)
New Revision: 19526

Modified:
   branches/rel_2_1/Open-ILS/src/perlmods/lib/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_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
===================================================================
--- branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm	2011-02-23 22:20:05 UTC (rev 19525)
+++ branches/rel_2_1/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm	2011-02-23 22:21:26 UTC (rev 19526)
@@ -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;