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>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
index 3e4d182..cf8644b 100644 (file)
--- 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(),