From 17394df62404d7a982b1164c59351e0e764c90b0 Mon Sep 17 00:00:00 2001
From: Jeff Davis <jdavis@sitka.bclibraries.ca>
Date: Tue, 3 Nov 2015 12:46:31 -0800
Subject: [PATCH] LP#1499086: bugfix for copy filter in basic_opac_copy_query

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>
---
 Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index 59cd14076f..4ebdfc13dc 100644
--- 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' } ))
-- 
2.11.0