forward porting r15559: protect against just-spaces in the remaining query blob

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15561 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index 31470a3..ac812a6 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -624,6 +624,9 @@ sub multiclass_query {
     }
 
     $query .= " $tmp_value";
+    $query =~ s/\s+/ /go;
+    $query =~ s/^\s+//go;
+    $query =~ s/\s+$//go;
 
     if($query) {
         # This is the front part of the string before any special tokens were