fixing session timeout bug
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / WWW / Reporter.pm
index 2709ea1..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);
 
@@ -146,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;
 }