@@ -, +, @@ --- Koha/SuggestionEngine/Plugin/AuthorityFile.pm | 3 +-- Koha/SuggestionEngine/Plugin/ExplodedTerms.pm | 5 ++--- 2 files changed, 3 insertions(+), 5 deletions(-) --- a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm +++ a/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); --- a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm +++ a/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, --