From: Bill Erickson Date: Thu, 23 Feb 2012 22:01:28 +0000 (-0500) Subject: search filter group : www backend X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e3142db16bd40626d852c9bd5c04ccf45ab3f5e3;p=evergreen%2Fequinox.git search filter group : www backend Signed-off-by: Bill Erickson --- 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")) . ")"; }