|
Lines 662-674
set_userenv is called in Auth.pm
Link Here
|
| 662 |
=cut |
662 |
=cut |
| 663 |
|
663 |
|
| 664 |
#' |
664 |
#' |
|
|
665 |
sub set_userenv_from_session { |
| 666 |
my ( $class, $session ) = @_; |
| 667 |
return $class->set_userenv( |
| 668 |
$session->param('number'), $session->param('id') // '', |
| 669 |
$session->param('cardnumber'), $session->param('firstname'), |
| 670 |
$session->param('surname'), $session->param('branch'), |
| 671 |
$session->param('branchname'), $session->param('flags'), |
| 672 |
$session->param('emailaddress'), $session->param('shibboleth'), |
| 673 |
$session->param('desk_id'), $session->param('desk_name'), |
| 674 |
$session->param('register_id'), $session->param('register_name'), |
| 675 |
$session->id, |
| 676 |
); |
| 677 |
} |
| 665 |
sub set_userenv { |
678 |
sub set_userenv { |
| 666 |
shift @_; |
679 |
shift @_; |
| 667 |
my ( |
680 |
my ( |
| 668 |
$usernum, $userid, $usercnum, $userfirstname, |
681 |
$usernum, $userid, $usercnum, $userfirstname, |
| 669 |
$usersurname, $userbranch, $branchname, $userflags, |
682 |
$usersurname, $userbranch, $branchname, $userflags, |
| 670 |
$emailaddress, $shibboleth, $desk_id, $desk_name, |
683 |
$emailaddress, $shibboleth, $desk_id, $desk_name, |
| 671 |
$register_id, $register_name |
684 |
$register_id, $register_name, $session_id, |
| 672 |
) = @_; |
685 |
) = @_; |
| 673 |
|
686 |
|
| 674 |
my $cell = { |
687 |
my $cell = { |
|
Lines 687-693
sub set_userenv {
Link Here
|
| 687 |
"desk_id" => $desk_id, |
700 |
"desk_id" => $desk_id, |
| 688 |
"desk_name" => $desk_name, |
701 |
"desk_name" => $desk_name, |
| 689 |
"register_id" => $register_id, |
702 |
"register_id" => $register_id, |
| 690 |
"register_name" => $register_name |
703 |
"register_name" => $register_name, |
|
|
704 |
"session_id" => $session_id, |
| 691 |
}; |
705 |
}; |
| 692 |
$context->{userenv} = $cell; |
706 |
$context->{userenv} = $cell; |
| 693 |
return $cell; |
707 |
return $cell; |