From efbbef05bcd2314878c72765f8f5cf40ba7a1614 Mon Sep 17 00:00:00 2001 From: Jeff Davis Date: Tue, 2 Oct 2018 14:28:31 -0700 Subject: [PATCH] LP#1609556: only include OPAC-visible copies in SRU/Z39.50 holdings Signed-off-by: Jeff Davis --- Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm index b43d266069..2ba1f381a4 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm @@ -2031,6 +2031,13 @@ sub sru_search { my $cn = $volume->getAttribute('label'); my $owning_lib = $volume->getAttribute('lib'); for my $copy ($volume->getElementsByTagName('copy')) { + # skip copies that aren't OPAC-visible + next if ( + $copy->getAttribute('opac_visible') eq 'false' || + $copy->getChildrenByTagName('status')->[0]->getAttribute('opac_visible') eq 'false' || + $copy->getChildrenByTagName('location')->[0]->getAttribute('opac_visible') eq 'false' || + $copy->getChildrenByTagName('circ_lib')->[0]->getAttribute('opac_visible') eq 'false' + ); push @copies, { a => $copy->getChildrenByTagName('location')->[0]->textContent, b => $owning_lib, -- 2.11.0