From 79d5b5fb2aa629419858ae468448303aa56c8a5c Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 23 Feb 2011 22:20:05 +0000
Subject: [PATCH] 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
---
Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 1 +
1 file changed, 1 insertion(+)
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 ec462c64a7..b85864b0d1 100644
--- 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;
--
2.11.0