From c32cca53bdfe07a3ee27ebac36c7aae3d51c68d9 Mon Sep 17 00:00:00 2001 From: Nick Clemens 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 Signed-off-by: Kyle M Hall --- 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