Ignore deleted copies on hold shelf

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>

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 b72db96..83acad6 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
@@ -2030,7 +2030,10 @@ sub fetch_captured_holds {
             }
         }, 
         where => {
-            '+acp' => { status => OILS_COPY_STATUS_ON_HOLDS_SHELF },
+            '+acp' => {
+                status => OILS_COPY_STATUS_ON_HOLDS_SHELF,
+                deleted => 'f'
+            },
             '+alhr' => {
                 capture_time     => { "!=" => undef },
                 current_copy     => $current_copy,