@@ -, +, @@ --- C4/Search.pm | 2 +- opac/opac-search.pl | 15 ++++++--------- 2 files changed, 7 insertions(+), 10 deletions(-) --- a/C4/Search.pm +++ a/C4/Search.pm @@ -532,7 +532,7 @@ sub getRecords { foreach my $field (@fields) { my $data = $field->as_string( $subfield_letters, $facet->{sep} ); - unless ( $data ~~ @used_datas ) { + unless ( grep { /^$data$/ } @used_datas ) { push @used_datas, $data; $facets_counter->{ $facet->{idx} }->{$data}++; } --- a/opac/opac-search.pl +++ a/opac/opac-search.pl @@ -30,15 +30,12 @@ use Modern::Perl; use C4::Context; my $searchengine = C4::Context->preference("SearchEngine"); -for ( $searchengine ) { - when ( /^Solr$/ ) { - warn "We use Solr"; - require 'opac/search.pl'; - exit; - } - when ( /^Zebra$/ ) { +if ( $searchengine =~ /^Solr$/ ) { + warn "We use Solr"; + require 'opac/search.pl'; + exit; +} elsif ( $searchengine =~ /^Zebra$/ ) { - } } use C4::Output; @@ -360,7 +357,7 @@ my @allowed_sortby = qw /acqdate_asc acqdate_dsc author_az author_za call_number @sort_by = $cgi->param('sort_by'); $sort_by[0] = $default_sort_by if !$sort_by[0] && defined($default_sort_by); foreach my $sort (@sort_by) { - if ( $sort ~~ @allowed_sortby ) { + if ( grep { /^$sort$/ } @allowed_sortby ) { $template->param($sort => 1); } } --