From d86515a358d1285b19b16b295f685fde05be8706 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jean-Andr=C3=A9=20Santoni?= Date: Thu, 11 Jun 2009 11:24:21 +0200 Subject: [PATCH] This fixes the encoding of ampersand entities in GetRecords Signed-off-by: Galen Charlton --- C4/ILSDI/Services.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index 9e907daf36..ed8916b0fe 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -28,6 +28,7 @@ use C4::Context; use C4::AuthoritiesMarc; use C4::ILSDI::Utility; use XML::Simple; +use HTML::Entities; use CGI; =head1 NAME @@ -209,6 +210,8 @@ sub GetRecords { $biblioitem->{'items'}->{'item'} = $items; $biblioitem->{'reserves'}->{'reserve'} = @reserves[1]; $biblioitem->{'issues'}->{'issue'} = $issues; + + map { $biblioitem->{$_} = encode_entities($biblioitem->{$_},'&') } grep(!/marcxml/, keys %$biblioitem); push @records, $biblioitem; } -- 2.39.5