remove extra xml declarations

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7594 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 6871fee..b41b635 100644 (file)
--- 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') {