Bug 3955: Fixes leading space error in search.

Leading spaces in a search term were causing an error to be thrown in a join operator when auto-truncations is turned on. This patch removes the leading spaces.

diff --git a/C4/Search.pm b/C4/Search.pm
index 2fe57ed..e8903fc 100644 (file)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -932,8 +932,10 @@ sub buildQuery {
                 }
 
                 if ($auto_truncation){
-                                       $operand=~join(" ",map{ "$_*" }split (/\s+/,$operand));
-                               }
+                   # join throws an error if there is a leading space
+                   $operand =~ s/^\s+//;
+                  $operand=~join(" ",map{ "$_*" }split (/\s+/,$operand));
+                }
 
                 # Detect Truncation
                 my $truncated_operand;