LP#1570623: Exclude deleted copies from line item existing

This is a rebase of a patch originally written by
Tiffany Little <tlittle@georgialibraries.org>

Signed-off-by: Galen Charlton <gmc@equinoxOLI.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Common.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Common.pm
index f77deb5..6700ccc 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Common.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Common.pm
@@ -69,7 +69,10 @@ sub li_existing_copies {
                 owning_lib => $U->get_org_descendants($org)
             },
             # NOTE: should the excluded copy statuses be an AOUS?
-            '+acp' => {status => {'not in' => [3, 4, 13, 17]}}
+            '+acp' => {
+                status => {'not in' => [3, 4, 13, 17]},
+                deleted => 'f'
+            }
         }
     });