fixing session timeout bug
[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / WWW / Reporter.pm
index ad25e76..95b79b0 100644 (file)
@@ -11,6 +11,7 @@ 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;
 }