From 9fc96fd32069b3f6cf2aa8742129dad53bb38618 Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Fri, 30 Sep 2005 22:12:05 +0000
Subject: [PATCH] Bug Fixing userenv was always empty. $userid and $cardnumber
 are now taken as global variables.

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

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 6112c5c761..db851824fa 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -388,7 +388,7 @@ sub checkauth {
 					C4::Context->_unset_userenv($sessionID);
 			}
 			if ($return == 1){
-				my ($cardnumber,$bornum,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress);
+				my ($bornum,$firstname,$surname,$userflags,$branchcode,$emailaddress);
 				my $sth=$dbh->prepare("select cardnumber,borrowernumber,userid,firstname,surname,flags,branchcode,emailaddress from borrowers where userid=?");
 				$sth->execute($userid);
 				($cardnumber,$bornum,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress) = $sth->fetchrow;