@@ -, +, @@ Use of uninitialized value in subroutine entry at /usr/share/perl5/URI/Escape.pm line 184. --- C4/Output.pm | 4 ++-- opac/opac-detail.pl | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) --- a/C4/Output.pm +++ a/C4/Output.pm @@ -351,10 +351,10 @@ sub parametrized_url { my $vars = shift || {}; # ie { LANG => en } my $ret = $url; while ( my ($key,$val) = each %$vars) { - my $val_url = URI::Escape::uri_escape_utf8($val); + my $val_url = URI::Escape::uri_escape_utf8( $val // q{} ); $ret =~ s/\{$key\}/$val_url/g; } - $ret =~ s/\{[^\{]*\}//g; # remove not defined vars + $ret =~ s/\{[^\{]*\}//g; # remove remaining vars return $ret; } --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -200,6 +200,7 @@ if ($session->param('busc')) { } } else { for my $value (@{$arrParamsBusc->{$_}}) { + next if !defined($value); $pasarParams .= '&' if ($j); $pasarParams .= $_ . '=' . Encode::decode('UTF-8', uri_escape_utf8($value)); $j++; --