& /Elements/Header, Title=>"User view" &> <& /Elements/ViewUser, User=>$u &> %if ($session{CurrentUser} && ($session{CurrentUser}->Id == $id)) { <& /Elements/TitleBoxStart, title => 'Signature' &>
<& /Elements/TitleBoxEnd &> %} <& /Elements/TitleBoxStart, title => 'Email' &> <& /Elements/TitleBoxEnd &> <& /Elements/TitleBoxStart, title => 'Real Name' &> <& /Elements/TitleBoxEnd &> <& /Elements/TitleBoxStart, title => 'User ID' &> <& /Elements/TitleBoxEnd &> %# TODO: alternative email addresses + merging users <%ARGS> $id => $session{CurrentUser} ? $session{CurrentUser}->Id : 0 $Signature => undef $Email => undef $RealName => undef $Name => undef %ARGS> <%INIT> require RT::User; my $u=RT::User->new($session{CurrentUser}); $u->Load($id) || die "Couldn't load that user ($id)"; if ($Signature) { my ($val, $msg)=$u->SetSignature($Signature); $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); } if ($Email) { my ($val, $msg)=$u->SetEmailAddress($Email); $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); } if ($RealName) { my ($val, $msg)=$u->SetRealName($RealName); $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); } if ($Name) { my ($val, $msg)=$u->SetName($Name); $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg); } if ($ARGS{NewWindowSetting}) { if ($ARGS{NewWindowOption}) { $session{NewWindowOption}=1; } else { delete $session{NewWindowOption}; } if ($ARGS{AlwaysNewWindowOption}) { $session{NewWindowOption}=1; $session{AlwaysNewWindowOption}=1; } else { delete $session{AlwaysNewWindowOption}; } } %INIT>