bug 9505 refactor loops in invoices.pl

[koha_fer] / C4 / Context.pm

diff --git a/C4/Context.pm b/C4/Context.pm
index fee8752..7709f7e 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -1104,22 +1104,7 @@ 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)= @_;
     my $var=$context->{"activeuser"} || '';
     my $cell = {
         "number"     => $usernum,