Multiple field search would not work any more

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 089ce20..3c1ad9a 100644 (file)
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -215,7 +215,7 @@ sub SearchAuthorities {
         
         my $dosearch;
         my $and=" \@and " ;
-        my $q2;
+        my $q2="";
         for(my $i = 0 ; $i <= $#{$value} ; $i++)
         {
             if (@$value[$i]){
@@ -237,16 +237,17 @@ sub SearchAuthorities {
                     $attr .=" \@attr 5=1 \@attr 4=6 ";## Word list, right truncated, anywhere
                 }
                 $attr =$attr."\"".@$value[$i]."\"";
-                $q2 .=$attr;
+                $q2 =($q2 ne "" ?$and.$q2.$attr:$attr);
+                warn $q2;
             $dosearch=1;
             }#if value
         }
         ##Add how many queries generated
         if ($query=~/\S+/){    
-          $query= $and.$query.$q2 
+          $query= $and.$query.$q2;
         } else {
-          $query=$q2;    
-        }         
+          $query=$q2;
+        }
         ## Adding order
         #$query=' @or  @attr 7=2 @attr 1=Heading 0 @or  @attr 7=1 @attr 1=Heading 1'.$query if ($sortby eq "HeadingDsc");
         my $orderstring= ($sortby eq "HeadingAsc"?