[Koha-patches] [PATCH 2/2] Bug Fix AuthoritiesMarc.pm

[Henri-Damien LAURENT]

---
 C4/AuthoritiesMarc.pm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index e46cac0..916d5ed 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -251,15 +251,13 @@ sub SearchAuthorities {
             push @q2, $querypart;
         }
         ##Add how many queries generated
-        my $count=0;
-        for my $querypart (@q2){
+        while (my $querypart=shift @q2){
             if ($query=~/\S+/){    
-              $query= (($count<scalar(@q2)-1)?$and:"").$query.$querypart;
+              $query= $and.$query.$querypart;
             } 
             else {
                 $query= $querypart;
             }
-            $count++;
         }
                  
         ## Adding order
-- 
1.6.3.3