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 |
- |
|
|