fixing session timeout bug
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Dec 2005 22:43:44 +0000 (22:43 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Dec 2005 22:43:44 +0000 (22:43 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2539 dcc99617-32d9-48b4-a31d-7c20da2025e4

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;
 }