[open-ils-commits] r19525 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-23 17:20:05 -0500 (Wed, 23 Feb 2011)
New Revision: 19525

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