From f3b6bade915bb40580229b193e5067c26a04d0cb Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Mon, 1 Aug 2011 18:02:56 -0400
Subject: [PATCH] prevent uninit string warnings

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---
 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 cc39afa654..62ad13c927 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -43,7 +43,7 @@ sub _prepare_biblio_search_basics {
             $query = '^' . $query . '$';
         }
 
-        $bool = ($bool eq 'or') ? '||' : '&&';
+        $bool = ($bool and $bool eq 'or') ? '||' : '&&';
         $full_query = $full_query ? "($full_query $bool $query)" : $query;
         push @chunks, $query;
     }
-- 
2.11.0