|
Lines 1104-1112
set_userenv is called in Auth.pm
Link Here
|
| 1104 |
|
1104 |
|
| 1105 |
#' |
1105 |
#' |
| 1106 |
sub set_userenv { |
1106 |
sub set_userenv { |
| 1107 |
my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter, $persona)= |
1107 |
my ( |
| 1108 |
map { utf8::decode($_); $_ } # CGI::Session doesn't handle utf-8, so we decode it here |
1108 |
$usernum, $userid, $usercnum, $userfirstname, |
| 1109 |
@_; |
1109 |
$usersurname, $userbranch, $branchname, $userflags, |
|
|
1110 |
$emailaddress, $branchprinter, $persona |
| 1111 |
) = @_; |
| 1112 |
for ( |
| 1113 |
$usernum, $userid, $usercnum, $userfirstname, |
| 1114 |
$usersurname, $userbranch, $branchname, $userflags, |
| 1115 |
$emailaddress, $branchprinter, $persona |
| 1116 |
) |
| 1117 |
{ |
| 1118 |
utf8::decode($_) if $_; |
| 1119 |
} |
| 1120 |
|
| 1121 |
# CGI::Session doesn't handle utf-8, so we decode it here |
| 1122 |
|
| 1110 |
my $var=$context->{"activeuser"} || ''; |
1123 |
my $var=$context->{"activeuser"} || ''; |
| 1111 |
my $cell = { |
1124 |
my $cell = { |
| 1112 |
"number" => $usernum, |
1125 |
"number" => $usernum, |
| 1113 |
- |
|
|