From 98d9ef0b65805e8455abe2353984439c9d5f8584 Mon Sep 17 00:00:00 2001
From: Katrin Fischer <katrin.fischer.83@web.de>
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 <josef.moravec@gmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit 786deba62beb5a52a543af5415610e14f7d0a8c5)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 112116e45f4676aea3a63faa42b0e6a3e2456706)
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 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