|
Lines 752-758
sub checkauth {
Link Here
|
| 752 |
my $s_userid = ''; |
752 |
my $s_userid = ''; |
| 753 |
if ($session) { |
753 |
if ($session) { |
| 754 |
$s_userid = $session->param('id') // ''; |
754 |
$s_userid = $session->param('id') // ''; |
| 755 |
C4::Context::set_userenv( |
755 |
C4::Context->set_userenv( |
| 756 |
$session->param('number'), $s_userid, |
756 |
$session->param('number'), $s_userid, |
| 757 |
$session->param('cardnumber'), $session->param('firstname'), |
757 |
$session->param('cardnumber'), $session->param('firstname'), |
| 758 |
$session->param('surname'), $session->param('branch'), |
758 |
$session->param('surname'), $session->param('branch'), |
|
Lines 1084-1090
sub checkauth {
Link Here
|
| 1084 |
if ($persona) { |
1084 |
if ($persona) { |
| 1085 |
$session->param( 'persona', 1 ); |
1085 |
$session->param( 'persona', 1 ); |
| 1086 |
} |
1086 |
} |
| 1087 |
C4::Context::set_userenv( |
1087 |
C4::Context->set_userenv( |
| 1088 |
$session->param('number'), $session->param('id'), |
1088 |
$session->param('number'), $session->param('id'), |
| 1089 |
$session->param('cardnumber'), $session->param('firstname'), |
1089 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1090 |
$session->param('surname'), $session->param('branch'), |
1090 |
$session->param('surname'), $session->param('branch'), |
|
Lines 1332-1338
sub check_api_auth {
Link Here
|
| 1332 |
my $session = get_session($sessionID); |
1332 |
my $session = get_session($sessionID); |
| 1333 |
C4::Context->_new_userenv($sessionID); |
1333 |
C4::Context->_new_userenv($sessionID); |
| 1334 |
if ($session) { |
1334 |
if ($session) { |
| 1335 |
C4::Context::set_userenv( |
1335 |
C4::Context->set_userenv( |
| 1336 |
$session->param('number'), $session->param('id'), |
1336 |
$session->param('number'), $session->param('id'), |
| 1337 |
$session->param('cardnumber'), $session->param('firstname'), |
1337 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1338 |
$session->param('surname'), $session->param('branch'), |
1338 |
$session->param('surname'), $session->param('branch'), |
|
Lines 1504-1510
sub check_api_auth {
Link Here
|
| 1504 |
$session->param( 'ip', $session->remote_addr() ); |
1504 |
$session->param( 'ip', $session->remote_addr() ); |
| 1505 |
$session->param( 'lasttime', time() ); |
1505 |
$session->param( 'lasttime', time() ); |
| 1506 |
} |
1506 |
} |
| 1507 |
C4::Context::set_userenv( |
1507 |
C4::Context->set_userenv( |
| 1508 |
$session->param('number'), $session->param('id'), |
1508 |
$session->param('number'), $session->param('id'), |
| 1509 |
$session->param('cardnumber'), $session->param('firstname'), |
1509 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1510 |
$session->param('surname'), $session->param('branch'), |
1510 |
$session->param('surname'), $session->param('branch'), |
|
Lines 1585-1591
sub check_cookie_auth {
Link Here
|
| 1585 |
my $session = get_session($sessionID); |
1585 |
my $session = get_session($sessionID); |
| 1586 |
C4::Context->_new_userenv($sessionID); |
1586 |
C4::Context->_new_userenv($sessionID); |
| 1587 |
if ($session) { |
1587 |
if ($session) { |
| 1588 |
C4::Context::set_userenv( |
1588 |
C4::Context->set_userenv( |
| 1589 |
$session->param('number'), $session->param('id'), |
1589 |
$session->param('number'), $session->param('id'), |
| 1590 |
$session->param('cardnumber'), $session->param('firstname'), |
1590 |
$session->param('cardnumber'), $session->param('firstname'), |
| 1591 |
$session->param('surname'), $session->param('branch'), |
1591 |
$session->param('surname'), $session->param('branch'), |
|
Lines 1732-1766
sub checkpw_internal {
Link Here
|
| 1732 |
|
1732 |
|
| 1733 |
my $sth = |
1733 |
my $sth = |
| 1734 |
$dbh->prepare( |
1734 |
$dbh->prepare( |
| 1735 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?" |
1735 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where userid=?" |
| 1736 |
); |
1736 |
); |
| 1737 |
$sth->execute($userid); |
1737 |
$sth->execute($userid); |
| 1738 |
if ( $sth->rows ) { |
1738 |
if ( $sth->rows ) { |
| 1739 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1739 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
| 1740 |
$surname, $branchcode, $flags ) |
1740 |
$surname, $branchcode, $branchname, $flags ) |
| 1741 |
= $sth->fetchrow; |
1741 |
= $sth->fetchrow; |
| 1742 |
|
1742 |
|
| 1743 |
if ( checkpw_hash( $password, $stored_hash ) ) { |
1743 |
if ( checkpw_hash( $password, $stored_hash ) ) { |
| 1744 |
|
1744 |
|
| 1745 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
1745 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
| 1746 |
$firstname, $surname, $branchcode, $flags ); |
1746 |
$firstname, $surname, $branchcode, $branchname, $flags ); |
| 1747 |
return 1, $cardnumber, $userid; |
1747 |
return 1, $cardnumber, $userid; |
| 1748 |
} |
1748 |
} |
| 1749 |
} |
1749 |
} |
| 1750 |
$sth = |
1750 |
$sth = |
| 1751 |
$dbh->prepare( |
1751 |
$dbh->prepare( |
| 1752 |
"select password,cardnumber,borrowernumber,userid, firstname,surname,branchcode,flags from borrowers where cardnumber=?" |
1752 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where cardnumber=?" |
| 1753 |
); |
1753 |
); |
| 1754 |
$sth->execute($userid); |
1754 |
$sth->execute($userid); |
| 1755 |
if ( $sth->rows ) { |
1755 |
if ( $sth->rows ) { |
| 1756 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1756 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
| 1757 |
$surname, $branchcode, $flags ) |
1757 |
$surname, $branchcode, $branchname, $flags ) |
| 1758 |
= $sth->fetchrow; |
1758 |
= $sth->fetchrow; |
| 1759 |
|
1759 |
|
| 1760 |
if ( checkpw_hash( $password, $stored_hash ) ) { |
1760 |
if ( checkpw_hash( $password, $stored_hash ) ) { |
| 1761 |
|
1761 |
|
| 1762 |
C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber, |
1762 |
C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber, |
| 1763 |
$firstname, $surname, $branchcode, $flags ); |
1763 |
$firstname, $surname, $branchcode, $branchname, $flags ); |
| 1764 |
return 1, $cardnumber, $userid; |
1764 |
return 1, $cardnumber, $userid; |
| 1765 |
} |
1765 |
} |
| 1766 |
} |
1766 |
} |