Bug Fixing

userenv was always empty.
$userid and $cardnumber are now taken as global variables.
This commit is contained in:
hdl 2005-09-30 22:12:05 +00:00
parent f1e70e767a
commit 9fc96fd320
1 changed files with 1 additions and 1 deletions

View File

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