Bug 8233: Replace the given statement with for

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>

diff --git a/Koha/SearchEngine/Solr/QueryBuilder.pm b/Koha/SearchEngine/Solr/QueryBuilder.pm
index ba653b3..414d1e1 100644 (file)
--- a/Koha/SearchEngine/Solr/QueryBuilder.pm
+++ b/Koha/SearchEngine/Solr/QueryBuilder.pm
@@ -43,7 +43,7 @@ sub build_advanced_query {
         # And others
         $index_name = @$indexes[$i] if @$indexes[$i];
         my $operator = defined @$operators[$i-1] ? @$operators[$i-1] : 'AND';
-        given ( uc ( $operator ) ) {
+        for ( uc ( $operator ) ) {
             when ('OR'){
                 $q .= BuildTokenString($index_name, $kw, 'OR');
             }

diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 8028c0a..e39e547 100755 (executable)
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -30,7 +30,7 @@ use Modern::Perl;
 use C4::Context;
 
 my $searchengine = C4::Context->preference("SearchEngine");
-given ( $searchengine ) {
+for ( $searchengine ) {
     when ( /^Solr$/ ) {
         warn "We use Solr";
         require 'opac/search.pl';