fixing session timeout bug
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / WWW / Reporter.pm
index d9d4ecc..95b79b0 100644 (file)
@@ -5,12 +5,13 @@ use vars qw/$dtype_xform_map $dtype_xform/;
 
 use Apache2 ();
 use Apache2::Log;
-use Apache2::Const -compile => qw(OK REDIRECT :log);
+use Apache2::Const -compile => qw(OK REDIRECT DECLINED :log);
 use APR::Const    -compile => qw(:error SUCCESS);
 use Apache2::RequestRec ();
 use Apache2::RequestIO ();
 use Apache2::RequestUtil;
 use CGI;
+use Data::Dumper;
 
 use Template qw(:template);
 
@@ -76,6 +77,7 @@ sub handler {
 
 
        print "Content-type: text/html; charset=utf-8\n\n";
+       #print "Content-type: text/html\n\n";
 
        _process_template(
                        apache          => $apache,
@@ -145,6 +147,10 @@ sub verify_login {
                "open-ils.auth.session.retrieve", $auth_token );
        my $user = $req->gather(1);
 
+       if (ref($user) eq 'HASH' && $user->{ilsevent} == 1001) {
+               return 0;
+       }
+
        return $user if ref($user);
        return 0;
 }