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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 14:44:53 -0400 (Fri, 27 Jul 2007)
New Revision: 7607

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:37:19 UTC (rev 7606)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 18:44:53 UTC (rev 7607)
@@ -6,6 +6,8 @@
 use Apache2::Log;
 use Apache2::Const -compile => qw(OK REDIRECT DECLINED NOT_FOUND :log);
 use APR::Const    -compile => qw(:error SUCCESS);
+use APR::Table;
+
 use Apache2::RequestRec ();
 use Apache2::RequestIO ();
 use Apache2::RequestUtil;
@@ -92,8 +94,9 @@
 		$ftype->require;
 	}
 
+	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
 
-	$r->header_out("Content-Disposition" => "inline; filename=$filename");
+	$r->headers_out->set("Content-Disposition" => "inline; filename=$filename");
 
 	if (uc($format) eq 'XML') {
 		$r->send_http_header('application/xml');
@@ -109,8 +112,6 @@
 	my %orgs;
 	my %shelves;
 
-	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
-
 	my $flesh = {};
 	if ($holdings) {