@@ -, +, @@ --- opac/opac-suggestions.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) --- a/opac/opac-suggestions.pl +++ a/opac/opac-suggestions.pl @@ -19,6 +19,7 @@ use strict; use warnings; use CGI qw ( -utf8 ); +use Encode qw( encode ); use C4::Auth; # get_template_and_user use C4::Members; use C4::Branch; @@ -88,7 +89,8 @@ if ( $op eq "add_confirm" ) { else { my $scrubber = C4::Scrubber->new(); foreach my $suggest (keys %$suggestion){ - $suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest}); + # Don't know why the encode is needed for Perl v5.10 here + $suggestion->{$suggest} = Encode::encode("utf8", $scrubber->scrub($suggestion->{$suggest}) ); } $$suggestion{'suggesteddate'}=C4::Dates->today; $$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"}; --