From e3142db16bd40626d852c9bd5c04ccf45ab3f5e3 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 23 Feb 2012 17:01:28 -0500 Subject: [PATCH] search filter group : www backend Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm | 6 ++++++ 1 file changed, 6 insertions(+) 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 b4d77e2d74..737e92f3b0 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm @@ -70,6 +70,12 @@ sub _prepare_biblio_search { $query .= " $1($term)" if length $term; } + # filter groups + for my $entry_id ($cgi->param('fge')) { + my $entry = $ctx->{get_asfge}->($entry_id) or next; + $query .= " " . $entry->query_text; + } + if ($cgi->param("bookbag")) { $query .= " container(bre,bookbag," . int($cgi->param("bookbag")) . ")"; } -- 2.11.0