From bc4af355b932163c7cca2a758a95b18a3f73c395 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Mon, 2 Dec 2002 01:33:39 +0000
Subject: [PATCH] fixed a bug in the auth.pm system

---
 C4/Auth.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index eb7c6fd2fc..4b0d86e350 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -139,6 +139,7 @@ sub checkauth {
 		# timed logout
 		$info{'timed_out'} = 1;
 		$dbh->do("DELETE FROM sessions WHERE sessionID=?", undef, $sessionID);
+		$userid = undef;
 		$sessionID = undef;
 		open L, ">>/tmp/sessionlog";
 		my $time=localtime(time());
@@ -151,6 +152,7 @@ sub checkauth {
 		$info{'different_ip'} = 1;
 		$dbh->do("DELETE FROM sessions WHERE sessionID=?", undef, $sessionID);
 		$sessionID = undef;
+		$userid = undef;
 		open L, ">>/tmp/sessionlog";
 		my $time=localtime(time());
 		printf L "%20s from logged out at %30s (ip changed from %16s to %16s).\n", $userid, $time, $ip, $info{'newip'};
-- 
2.39.5