From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Mon, 13 Feb 2012 19:57:39 +0000 (-0500)
Subject: AutoSuggest: prevent building a bad tsquery when user types leading spaces
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e712065f4093aae593ace21dd9d8127d15621a51;p=contrib%2FConifer.git

AutoSuggest: prevent building a bad tsquery when user types leading spaces

The problem used to bubble up and manifest as an Apache 500 error for
the user.

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
index 3e4d18247d..cf8644bc1b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
@@ -58,7 +58,7 @@ sub prepare_for_tsquery {
     $str =~ s/[^\w\s]/ /ig;
     $str .= ":*" unless $str =~ /\s$/;
 
-    return join(" & ", split(/\s+/, $str));
+    return join(" & ", grep(length, split(/\s+/, $str)));
 }
 
 # The third argument to our stored procedure, metabib.suggest_browse_entries(),