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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-02-16 16:37:42 -0500 (Tue, 16 Feb 2010)
New Revision: 15560

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

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