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

(-)a/C4/Context.pm (-2 / +1 lines)
Lines 1105-1111 set_userenv is called in Auth.pm Link Here
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 ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter, $persona)=
1108
    map { utf8::decode($_); $_ } # CGI::Session doesn't handle utf-8, so we decode it here
1108
    map { my $a= $_; utf8::decode($a); $a; } # CGI::Session doesn't handle utf-8, so we decode it here
1109
    @_;
1109
    @_;
1110
    my $var=$context->{"activeuser"} || '';
1110
    my $var=$context->{"activeuser"} || '';
1111
    my $cell = {
1111
    my $cell = {
1112
- 

Return to bug 6554