[open-ils-commits] r15559 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-02-16 16:36:38 -0500 (Tue, 16 Feb 2010)
New Revision: 15559

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
protect against just-spaces in the remaining query blob

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 18:53:30 UTC (rev 15558)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 21:36:38 UTC (rev 15559)
@@ -624,6 +624,9 @@
     }
 
     $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