From a9875a17833f83e996cc4f9c9f6e4ddda376610d Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 27 Jul 2007 18:47:52 +0000
Subject: [PATCH] use the mod_perl2 syntax

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

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 5f9baa630a..b114c8d1bc 100644
--- 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');
-- 
2.11.0