From d86515a358d1285b19b16b295f685fde05be8706 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jean-Andr=C3=A9=20Santoni?= <jeanandre.santoni@biblibre.com>
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 <gmcharlt@gmail.com>
---
 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