From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 27 Jul 2007 18:37:19 +0000 (+0000)
Subject: use the mod_perl2 syntax
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7d7022eca517fa81ed49d031593524fa51d8c41e;p=Evergreen.git

use the mod_perl2 syntax

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7606 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 997432c01f..e717192549 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -92,9 +92,8 @@ sub handler {
 		$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 @@ sub handler {
 	my %orgs;
 	my %shelves;
 
+	my $ses = OpenSRF::AppSession->create('open-ils.cstore');
+
 	my $flesh = {};
 	if ($holdings) {