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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 14:37:19 -0400 (Fri, 27 Jul 2007)
New Revision: 7606

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:34:56 UTC (rev 7605)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 18:37:19 UTC (rev 7606)
@@ -92,9 +92,8 @@
 		$ftype->require;
 	}
 
-	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
 
-	$r->headers_out->set("Content-Disposition" => "inline; filename=$filename");
+	$r->header_out("Content-Disposition" => "inline; filename=$filename");
 
 	if (uc($format) eq 'XML') {
 		$r->send_http_header('application/xml');
@@ -110,6 +109,8 @@
 	my %orgs;
 	my %shelves;
 
+	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
+
 	my $flesh = {};
 	if ($holdings) {