LP#1570623 Exclude deleted copies from line item existing copy count

Excludes copies from the count which are deleted.

Signed-off-by: Tiffany Little <tlittle@georgialibraries.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index 104cf71..b2cf7eb 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -4353,7 +4353,9 @@ 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'
+            },
         }
     });