View | Details | Raw Unified | Return to bug 6554
Collapse All | Expand All

(-)a/C4/Context.pm (-4 / +16 lines)
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
- 

Return to bug 6554