From 3ea360d2465b8ee37c459b5095fcff31f5b3bbd6 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 27 Feb 2014 16:15:06 -0500 Subject: [PATCH] LP#1284864 TPAC scoped constituent MR records list Limit bib records to those within the search scope in the MR constituent records list page. Signed-off-by: Bill Erickson Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm index 092bf1636e..5e7871e60e 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm @@ -387,15 +387,15 @@ sub load_rresults { # TODO: other limits, like SVF/format, etc. $self->timelog("Getting metarecords to records"); - $results = $U->simplereq( - 'open-ils.search', - 'open-ils.search.biblio.metarecord_to_records', - $metarecord, {org => $ctx->{search_ou}, depth => $depth} - ); + my $bre_ids = $U->simplereq( + 'open-ils.circ', + 'open-ils.circ.holds.metarecord.filtered_records', + $metarecord, undef, $ctx->{search_ou}, $depth); + $self->timelog("Got metarecords to records"); # force the metarecord result blob to match the format of regular search results - $results->{ids} = [map { [$_] } @{$results->{ids}}]; + $results->{ids} = [map { [$_] } @$bre_ids]; } else { -- 2.11.0