LP#1499086: bugfix for copy filter in basic_opac_copy_query

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index 59cd140..4ebdfc1 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
@@ -2038,7 +2038,10 @@ sub basic_opac_copy_query {
         },
 
         where => {
-            deleted => 'f',
+            '+acp' => { 
+                deleted => 'f', 
+                ($staff ? () : (opac_visible => 't'))
+            }, 
             ($rec_id ? (record => $rec_id) : ()),
             ($dist_id ? ( '+sstr' => { distribution => $dist_id } ) : ()),
             ($staff ? () : ( '+aou' => { opac_visible => 't' } ))