[open-ils-commits] r15561 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (miker)

[svn at svn.open-ils.org]

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

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 21:37:42 UTC (rev 15560)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-02-16 21:38:02 UTC (rev 15561)
@@ -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