From c32cca53bdfe07a3ee27ebac36c7aae3d51c68d9 Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Thu, 21 Oct 2021 10:31:18 +0000
Subject: [PATCH] Bug 29284: (follow-up) Fix code that I copied from too

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 catalogue/search.pl | 5 ++++-
 opac/opac-search.pl | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/catalogue/search.pl b/catalogue/search.pl
index e66670c522..7c41685855 100755
--- a/catalogue/search.pl
+++ b/catalogue/search.pl
@@ -546,7 +546,10 @@ eval {
 };
 
 if ($@ || $error) {
-    $template->param(query_error => $error.$@);
+    my $query_error = q{};
+    $query_error .= $error if $error;
+    $query_error .= $@ if $@;
+    $template->param(query_error => $query_error);
     output_html_with_http_headers $cgi, $cookie, $template->output;
     exit;
 }
diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 8c0f0b9d23..c8015a2fcc 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -613,7 +613,10 @@ if ($tag) {
 
 # use Data::Dumper; print STDERR "-" x 25, "\n", Dumper($results_hashref);
 if (not $tag and ( $@ || $error)) {
-    $template->param(query_error => $error.$@);
+    my $query_error = q{};
+    $query_error .= $error if $error;
+    $query_error .= $@ if $@;
+    $template->param(query_error => $query_error);
     output_html_with_http_headers $cgi, $cookie, $template->output;
     exit;
 }
-- 
2.39.5