1 <& /Elements/Header, Title=>"User view" &>
3 <& /Elements/ViewUser, User=>$u &>
5 %if ($session{CurrentUser} && ($session{CurrentUser}->Id == $id)) {
6 <& /Elements/TitleBoxStart, title => 'Signature' &>
8 <input type="hidden" name="id" value=<%$id%>>
9 <TEXTAREA COLS=72 ROWS=4 WRAP=HARD NAME="Signature"><% $u->Signature %></TEXTAREA><br><br>
10 <input type="submit" value="Update signature">
12 <& /Elements/TitleBoxEnd &>
14 Open tickets (from listing) in another window: <input type="checkbox" name="NewWindowOption" <%exists $session{NewWindowOption} && "CHECKED"%>><br>
15 Open tickets (from listing) in a new window: <input type="checkbox" name="AlwaysNewWindowOption" <%exists $session{AlwaysNewWindowOption} && "CHECKED"%>><br>
16 <input type="submit" name="NewWindowSetting" value="New window setting">
20 <& /Elements/TitleBoxStart, title => 'Email' &>
22 <input type="hidden" name="id" value="<%$id%>">
23 <input name="Email" value="<% $u->EmailAddress %>"><input type="submit" value="Update email">
25 <& /Elements/TitleBoxEnd &>
26 <& /Elements/TitleBoxStart, title => 'Real Name' &>
28 <input type="hidden" name="id" value="<%$id%>">
29 <input name="RealName" value="<% $u->RealName %>"><input type="submit" value="Update name">
31 <& /Elements/TitleBoxEnd &>
33 <& /Elements/TitleBoxStart, title => 'User ID' &>
35 <input type="hidden" name="id" value="<%$id%>">
36 <input name="Name" value="<% $u->Name %>"><input type="submit" value="Update ID">
38 <& /Elements/TitleBoxEnd &>
40 %# TODO: alternative email addresses + merging users
43 $id => $session{CurrentUser} ? $session{CurrentUser}->Id : 0
52 my $u=RT::User->new($session{CurrentUser});
53 $u->Load($id) || die "Couldn't load that user ($id)";
55 my ($val, $msg)=$u->SetSignature($Signature);
56 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
60 my ($val, $msg)=$u->SetEmailAddress($Email);
61 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
65 my ($val, $msg)=$u->SetRealName($RealName);
66 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
70 my ($val, $msg)=$u->SetName($Name);
71 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
74 if ($ARGS{NewWindowSetting}) {
75 if ($ARGS{NewWindowOption}) {
76 $session{NewWindowOption}=1;
78 delete $session{NewWindowOption};
80 if ($ARGS{AlwaysNewWindowOption}) {
81 $session{NewWindowOption}=1;
82 $session{AlwaysNewWindowOption}=1;
84 delete $session{AlwaysNewWindowOption};