Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
$term =~ s/((?<!\\)(?:[\\]{2})*:[^:\s]+(?<!\\)(?:[\\]{2})*)(?=:)/$1\\/g;
# screen all exclamation signs that either are the last symbol or have white space after them
+ # or are followed by close parentheses
$term =~ s/(?:[\s\\]*!\s*)+(\s|$|\))/$1/g;
# screen all brackets with backslash
};
if ($err || $@){
- warn "Warning from simple_search_compat: $err.$@";
+ my $error = q{};
+ $error .= $err if $err;
+ $error .= $@ if $@;
+ warn "Warning from simple_search_compat: $error";
$template->param( analytics_error => 1 );
}
my $variables = {
- show_analytics_link => $count > 0 ? 1 : 0
+ show_analytics_link => defined $count && $count > 0 ? 1 : 0
};
$template->param(
};
if ($err || $@){
- warn "Warning from simple_search_compat: $err.$@";
+ my $error = q{};
+ $error .= $err if $err;
+ $error .= $@ if $@;
+ warn "Warning from simple_search_compat: $error";
}
my $variables = {
anonymous_session => ($borrowernumber) ? 0 : 1,
- show_analytics_link => $count > 0 ? 1 : 0
+ show_analytics_link => defined $count && $count > 0 ? 1 : 0
};
my $lang = C4::Languages::getlanguage();