From 786deba62beb5a52a543af5415610e14f7d0a8c5 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 18 Aug 2017 08:36:59 +0000 Subject: [PATCH] Bug 9857 - Follow-up - Fix for searches with su= or su: When the initial search is su=.../su:... the links was not constructed correctly. With this change, it should be the case. Signed-off-by: Josef Moravec Signed-off-by: Kyle M Hall Signed-off-by: Jonathan Druart --- Koha/SuggestionEngine/Plugin/AuthorityFile.pm | 3 +-- Koha/SuggestionEngine/Plugin/ExplodedTerms.pm | 5 ++--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm b/Koha/SuggestionEngine/Plugin/AuthorityFile.pm index fad0a58179..cfb34da7aa 100644 --- a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm +++ b/Koha/SuggestionEngine/Plugin/AuthorityFile.pm @@ -30,8 +30,7 @@ Plugin to get suggestions from Koha's authority file =cut -use strict; -use warnings; +use Modern::Perl; use Carp; use base qw(Koha::SuggestionEngine::Base); diff --git a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm index c8a3339568..7129d9b653 100644 --- a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm +++ b/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm @@ -31,8 +31,7 @@ subjects to subject searches. =cut -use strict; -use warnings; +use Modern::Perl; use Carp; use C4::Templates qw(gettemplate); # This is necessary for translatability @@ -86,7 +85,7 @@ sub get_suggestions { foreach my $index (@indexes) { my $thissearch = $search; $thissearch = "$index:$thissearch" - unless ( $thissearch =~ s/OP!/$index=/g ); + unless ( $thissearch =~ s/OP!/$index:/g ); $template->{VARS}->{index} = $index; my $label = $template->output; push @results, -- 2.39.5