content types

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7591 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 a35ffb2..f8a61d2 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -79,7 +79,10 @@ sub handler {
 
        my $ses = OpenSRF::AppSession->create('open-ils.cstore');
 
-       print <<"       HEADER" if ($format eq 'XML');
+       print "Content-type: application/octet-stream\n\n" if (uc($format) ne 'XML');
+       print <<"       HEADER" if (uc($format) eq 'XML');
+Content-type: application/xml
+
 <?xml version="1.0" encoding="$encoding"?>
 <collection xmlns='http://www.loc.gov/MARC21/slim'>
        HEADER
@@ -194,6 +197,7 @@ sub handler {
                        } elsif (uc($format) eq 'UNIMARC') {
                                print $r->as_unimarc
                        } elsif (uc($format) eq 'USMARC') {
+                               print "Content-type: application/octet-stream\n\n";
                                print $r->as_usmarc
                        }