From: Jeff Davis <jeff.davis@bc.libraries.coop>
Date: Mon, 9 Sep 2019 23:11:44 +0000 (-0700)
Subject: LP#1839684: avoid repeating qtype prefix in query
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0bff4ed1efbcd6dedd8398b5080ec0dec2b2cf7c;p=contrib%2FConifer.git

LP#1839684: avoid repeating qtype prefix in query

Signed-off-by: Jeff Davis <jeff.davis@bc.libraries.coop>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Gina Monti <gmonti@biblio.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
index c21566a628..459e3089b6 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -67,7 +67,7 @@ sub _prepare_biblio_search_basics {
             $query = "bib_level(s) $query";
         }
 
-        $query = "$qtype:$query" unless $qtype eq 'keyword' and $i == 0;
+        $query = "$qtype:$query" unless ($query =~ /^$qtype:/ or ($qtype eq 'keyword' and $i == 0));
 
         $bool = ($bool and $bool eq 'or') ? '||' : '&&';
         $full_query = $full_query ? "($full_query $bool $query)" : $query;