From ea8a861c921d31171ae5e2d0c3488c31a4a7b203 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 27 Jul 2007 16:53:11 +0000
Subject: [PATCH] remove extra xml declarations

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7594 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 6871fee23d..b41b635450 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -193,7 +193,9 @@ Content-type: application/xml
         		}
 
 			if (uc($format) eq 'XML') {
-				print $r->as_xml_record;
+				my $x = $r->as_xml_record;
+				$x =~ s/^<\?xml version="1.0" encoding="UTF-8"\?>//o;
+				print $x;
 			} elsif (uc($format) eq 'UNIMARC') {
 				print $r->as_unimarc
 			} elsif (uc($format) eq 'USMARC') {
-- 
2.11.0