From 4ba31d2e2802183d8b1d1de466e9219107c7f061 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 29 Apr 2013 15:10:45 -0700 Subject: [PATCH] Revert "Bug 6554 Fix error caused by modifying $_ in a map" This reverts commit e98fe7e32244fa11d218b4d2a1006eea547e70d8. Rolling back bug 6554 work until we have more comprehensive tests. --- C4/Context.pm | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index fee87520c9..4d170b2fb6 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -1104,22 +1104,9 @@ set_userenv is called in Auth.pm #' sub set_userenv { - my ( - $usernum, $userid, $usercnum, $userfirstname, - $usersurname, $userbranch, $branchname, $userflags, - $emailaddress, $branchprinter, $persona - ) = @_; - for ( - $usernum, $userid, $usercnum, $userfirstname, - $usersurname, $userbranch, $branchname, $userflags, - $emailaddress, $branchprinter, $persona - ) - { - utf8::decode($_) if $_; - } - - # CGI::Session doesn't handle utf-8, so we decode it here - + my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter, $persona)= + map { utf8::decode($_); $_ } # CGI::Session doesn't handle utf-8, so we decode it here + @_; my $var=$context->{"activeuser"} || ''; my $cell = { "number" => $usernum, -- 2.39.5