From e88d82e3ac1b73a2f1189cd4eec881b7aaf12415 Mon Sep 17 00:00:00 2001
From: berick <berick@esilibrary.com>
Date: Wed, 20 Apr 2011 14:52:00 -0400
Subject: [PATCH] allow filter negation (e.g. -item_type(a) ) in dynamic filter
 query string building

---
 Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 524c9a6b45..5f8643a623 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -53,7 +53,7 @@ sub _prepare_biblio_search {
 
     # filters
     foreach (grep /^fi:/, $cgi->param) {
-        /:(\w+)$/ or next;
+        /:(-?\w+)$/ or next;
         my $term = join(",", $cgi->param($_));
         $query .= " $1($term)" if length $term;
     }
-- 
2.11.0