From 263c228b7cd44d2e5922d695cec235a48e87b329 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 22 Jun 2012 16:38:20 +0200 Subject: [PATCH] Bug 8233: Replace the given statement with for --- Koha/SearchEngine/Solr/QueryBuilder.pm | 2 +- opac/opac-search.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Koha/SearchEngine/Solr/QueryBuilder.pm b/Koha/SearchEngine/Solr/QueryBuilder.pm index ba653b3..414d1e1 100644 --- 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 6976c8c..be7b6f6 100755 --- 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'; -- 1.7.7.3