From 1b9542fbeb0c4651ee9ae4519104d184194135ce Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Mon, 8 Dec 2008 20:56:21 +0100 Subject: [PATCH] bug #2852 encoding problems with custom summaries decoding data in order to correctly display. Signed-off-by: Henri-Damien LAURENT --- C4/Search.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/C4/Search.pm b/C4/Search.pm index f149434ccc..a3e1bfb32a 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -1279,6 +1279,10 @@ sub searchResults { foreach my $field (@fields) { my $tag = $field->tag(); my $tagvalue = $field->as_string(); + if (! utf8::is_utf8($tagvalue)) { + utf8::decode($tagvalue); + } + $summary =~ s/\[(.?.?.?.?)$tag\*(.*?)]/$1$tagvalue$2\[$1$tag$2]/g; unless ( $tag < 10 ) { @@ -1286,6 +1290,9 @@ sub searchResults { for my $i ( 0 .. $#subf ) { my $subfieldcode = $subf[$i][0]; my $subfieldvalue = $subf[$i][1]; + if (! utf8::is_utf8($subfieldvalue)) { + utf8::decode($subfieldvalue); + } my $tagsubf = $tag . $subfieldcode; $summary =~ s/\[(.?.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue$2\[$1$tagsubf$2]/g; -- 2.39.5