use the mod_perl2 syntax

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7607 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 e717192..5f9baa6 100644 (file)
--- 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) {