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 <josef.moravec@gmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Mason James <mtj@kohaaloha.com>

diff --git a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm b/Koha/SuggestionEngine/Plugin/AuthorityFile.pm
index fad0a58..cfb34da 100644 (file)
--- 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 c8a3339..7129d9b 100644 (file)
--- 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,