|
Lines 1222-1228
sub checkpw {
Link Here
|
| 1222 |
my ( $md5password, $cardnumber, $borrowernumber, $userid, $firstname, |
1222 |
my ( $md5password, $cardnumber, $borrowernumber, $userid, $firstname, |
| 1223 |
$surname, $branchcode, $flags ) |
1223 |
$surname, $branchcode, $flags ) |
| 1224 |
= $sth->fetchrow; |
1224 |
= $sth->fetchrow; |
| 1225 |
if ( md5_base64($password) eq $md5password ) { |
1225 |
if ( ( md5_base64($password) eq $md5password ) and ($md5password ne "!") ) { |
| 1226 |
|
1226 |
|
| 1227 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
1227 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
| 1228 |
$firstname, $surname, $branchcode, $flags ); |
1228 |
$firstname, $surname, $branchcode, $flags ); |