Lines 691-697
sub checkauth {
Link Here
|
691 |
my $s_userid = ''; |
691 |
my $s_userid = ''; |
692 |
if ($session){ |
692 |
if ($session){ |
693 |
$s_userid = $session->param('id') // ''; |
693 |
$s_userid = $session->param('id') // ''; |
694 |
C4::Context::set_userenv( |
694 |
C4::Context->set_userenv( |
695 |
$session->param('number'), $s_userid, |
695 |
$session->param('number'), $s_userid, |
696 |
$session->param('cardnumber'), $session->param('firstname'), |
696 |
$session->param('cardnumber'), $session->param('firstname'), |
697 |
$session->param('surname'), $session->param('branch'), |
697 |
$session->param('surname'), $session->param('branch'), |
Lines 982-988
sub checkauth {
Link Here
|
982 |
if ($persona){ |
982 |
if ($persona){ |
983 |
$session->param('persona',1); |
983 |
$session->param('persona',1); |
984 |
} |
984 |
} |
985 |
C4::Context::set_userenv( |
985 |
C4::Context->set_userenv( |
986 |
$session->param('number'), $session->param('id'), |
986 |
$session->param('number'), $session->param('id'), |
987 |
$session->param('cardnumber'), $session->param('firstname'), |
987 |
$session->param('cardnumber'), $session->param('firstname'), |
988 |
$session->param('surname'), $session->param('branch'), |
988 |
$session->param('surname'), $session->param('branch'), |
Lines 1214-1220
sub check_api_auth {
Link Here
|
1214 |
my $session = get_session($sessionID); |
1214 |
my $session = get_session($sessionID); |
1215 |
C4::Context->_new_userenv($sessionID); |
1215 |
C4::Context->_new_userenv($sessionID); |
1216 |
if ($session) { |
1216 |
if ($session) { |
1217 |
C4::Context::set_userenv( |
1217 |
C4::Context->set_userenv( |
1218 |
$session->param('number'), $session->param('id'), |
1218 |
$session->param('number'), $session->param('id'), |
1219 |
$session->param('cardnumber'), $session->param('firstname'), |
1219 |
$session->param('cardnumber'), $session->param('firstname'), |
1220 |
$session->param('surname'), $session->param('branch'), |
1220 |
$session->param('surname'), $session->param('branch'), |
Lines 1377-1383
sub check_api_auth {
Link Here
|
1377 |
$session->param('ip',$session->remote_addr()); |
1377 |
$session->param('ip',$session->remote_addr()); |
1378 |
$session->param('lasttime',time()); |
1378 |
$session->param('lasttime',time()); |
1379 |
} |
1379 |
} |
1380 |
C4::Context::set_userenv( |
1380 |
C4::Context->set_userenv( |
1381 |
$session->param('number'), $session->param('id'), |
1381 |
$session->param('number'), $session->param('id'), |
1382 |
$session->param('cardnumber'), $session->param('firstname'), |
1382 |
$session->param('cardnumber'), $session->param('firstname'), |
1383 |
$session->param('surname'), $session->param('branch'), |
1383 |
$session->param('surname'), $session->param('branch'), |
Lines 1456-1462
sub check_cookie_auth {
Link Here
|
1456 |
my $session = get_session($sessionID); |
1456 |
my $session = get_session($sessionID); |
1457 |
C4::Context->_new_userenv($sessionID); |
1457 |
C4::Context->_new_userenv($sessionID); |
1458 |
if ($session) { |
1458 |
if ($session) { |
1459 |
C4::Context::set_userenv( |
1459 |
C4::Context->set_userenv( |
1460 |
$session->param('number'), $session->param('id'), |
1460 |
$session->param('number'), $session->param('id'), |
1461 |
$session->param('cardnumber'), $session->param('firstname'), |
1461 |
$session->param('cardnumber'), $session->param('firstname'), |
1462 |
$session->param('surname'), $session->param('branch'), |
1462 |
$session->param('surname'), $session->param('branch'), |
Lines 1576-1610
sub checkpw_internal {
Link Here
|
1576 |
|
1576 |
|
1577 |
my $sth = |
1577 |
my $sth = |
1578 |
$dbh->prepare( |
1578 |
$dbh->prepare( |
1579 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?" |
1579 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where userid=?" |
1580 |
); |
1580 |
); |
1581 |
$sth->execute($userid); |
1581 |
$sth->execute($userid); |
1582 |
if ( $sth->rows ) { |
1582 |
if ( $sth->rows ) { |
1583 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1583 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1584 |
$surname, $branchcode, $flags ) |
1584 |
$surname, $branchcode, $branchname, $flags ) |
1585 |
= $sth->fetchrow; |
1585 |
= $sth->fetchrow; |
1586 |
|
1586 |
|
1587 |
if ( checkpw_hash($password, $stored_hash) ) { |
1587 |
if ( checkpw_hash($password, $stored_hash) ) { |
1588 |
|
1588 |
|
1589 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
1589 |
C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber, |
1590 |
$firstname, $surname, $branchcode, $flags ); |
1590 |
$firstname, $surname, $branchcode, $branchname, $flags ); |
1591 |
return 1, $cardnumber, $userid; |
1591 |
return 1, $cardnumber, $userid; |
1592 |
} |
1592 |
} |
1593 |
} |
1593 |
} |
1594 |
$sth = |
1594 |
$sth = |
1595 |
$dbh->prepare( |
1595 |
$dbh->prepare( |
1596 |
"select password,cardnumber,borrowernumber,userid, firstname,surname,branchcode,flags from borrowers where cardnumber=?" |
1596 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where cardnumber=?" |
1597 |
); |
1597 |
); |
1598 |
$sth->execute($userid); |
1598 |
$sth->execute($userid); |
1599 |
if ( $sth->rows ) { |
1599 |
if ( $sth->rows ) { |
1600 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1600 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1601 |
$surname, $branchcode, $flags ) |
1601 |
$surname, $branchcode, $branchname, $flags ) |
1602 |
= $sth->fetchrow; |
1602 |
= $sth->fetchrow; |
1603 |
|
1603 |
|
1604 |
if ( checkpw_hash($password, $stored_hash) ) { |
1604 |
if ( checkpw_hash($password, $stored_hash) ) { |
1605 |
|
1605 |
|
1606 |
C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber, |
1606 |
C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber, |
1607 |
$firstname, $surname, $branchcode, $flags ); |
1607 |
$firstname, $surname, $branchcode, $branchname, $flags ); |
1608 |
return 1, $cardnumber, $userid; |
1608 |
return 1, $cardnumber, $userid; |
1609 |
} |
1609 |
} |
1610 |
} |
1610 |
} |