[open-ils-commits] r7608 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 14:47:52 -0400 (Fri, 27 Jul 2007)
New Revision: 7608

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
use the mod_perl2 syntax

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 18:44:53 UTC (rev 7607)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 18:47:52 UTC (rev 7608)
@@ -99,9 +99,9 @@
 	$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');