From 4b0d17865a1e6a2ba2964c6325011bfc95667b87 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 27 Dec 2005 22:43:44 +0000
Subject: [PATCH] fixing session timeout bug

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2539 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm
index ad25e7651a..95b79b0a74 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm
@@ -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;
 }
-- 
2.43.2