From: Dan Scott <dscott@laurentian.ca>
Date: Mon, 19 Mar 2012 20:04:49 +0000 (-0400)
Subject: TPAC: Prevent OU-invisible copies from being displayed to public
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2b876b7d10c8d5e7c34b2a1971b092d1aadd9b24;p=contrib%2FConifer.git

TPAC: Prevent OU-invisible copies from being displayed to public

Per LP# 959577, "We've found that copies from OU's with OPAC visible set
to false are displaying on the record details page of tpac."

This fixes that by including the pertinent clause in mk_copy_query()'s
version of what in-db unapi does. Some day we will unite under the same
logic and be stronger!

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
index 2daaf2ffe0..e977a47b28 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
@@ -248,6 +248,7 @@ sub mk_copy_query {
         $query->{where}->{'+acp'}->{opac_visible} = 't';
         $query->{from}->{'acp'}->{'acpl'}->{filter} = {opac_visible => 't'};
         $query->{from}->{'acp'}->{'ccs'}->{filter} = {opac_visible => 't'};
+        $query->{from}->{'acp'}->{'aou'}->{filter} = {opac_visible => 't'};
     }
 
     return $query;