From 4d27855d859909021955c30a791f683630089c9c Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 27 Jul 2007 18:44:53 +0000 Subject: [PATCH] use the mod_perl2 syntax git-svn-id: svn://svn.open-ils.org/ILS/trunk@7607 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm index e717192549..5f9baa630a 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm @@ -6,6 +6,8 @@ use bytes; 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 @@ sub handler { $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 @@ sub handler { my %orgs; my %shelves; - my $ses = OpenSRF::AppSession->create('open-ils.cstore'); - my $flesh = {}; if ($holdings) { -- 2.11.0