$usersurname, $userbranch, $branchname, $userflags,
$emailaddress, $shibboleth, $desk_id, $desk_name,
$register_id, $register_name
) = @_;
) = map { utf8::upgrade($_); $_ } @_;
my $var=$context->{"activeuser"} || '';
my $cell = {
-