use the mod_perl2 syntax

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7608 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 5f9baa6..b114c8d 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -99,9 +99,9 @@ sub handler {
        $r->headers_out->set("Content-Disposition" => "inline; filename=$filename");
 
        if (uc($format) eq 'XML') {
-               $r->send_http_header('application/xml');
+               $r->content_type('application/xml');
        } else {
-               $r->send_http_header('application/octet-stream');
+               $r->content_type('application/octet-stream');
        }
 
        $r->print( <<"  HEADER" ) if (uc($format) eq 'XML');