search filter group : www backend
authorBill Erickson <berick@esilibrary.com>
Thu, 23 Feb 2012 22:01:28 +0000 (17:01 -0500)
committerMike Rylander <mrylander@gmail.com>
Wed, 18 Apr 2012 17:27:51 +0000 (13:27 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm

index b4d77e2..737e92f 100644 (file)
@@ -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")) . ")";
     }