rt/webrt/Admin/Users/Prefs.html

   1 <& /Elements/Header, Title=>"User view" &>
   2
   3 <& /Elements/ViewUser, User=>$u &>
   4
   5 %if ($session{CurrentUser} && ($session{CurrentUser}->Id == $id)) {
   6         <& /Elements/TitleBoxStart, title => 'Signature'  &>
   7 <form method=post>
   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">
  11 </form>
  12           <& /Elements/TitleBoxEnd &>
  13           <form method=post>
  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">
  17           </form>
  18 %}
  19
  20         <& /Elements/TitleBoxStart, title => 'Email'  &>
  21 <form method=post>
  22 <input type="hidden" name="id" value="<%$id%>">
  23 <input name="Email" value="<% $u->EmailAddress %>"><input type="submit" value="Update email">
  24 </form>
  25           <& /Elements/TitleBoxEnd &>
  26         <& /Elements/TitleBoxStart, title => 'Real Name'  &>
  27 <form method=post>
  28 <input type="hidden" name="id" value="<%$id%>">
  29 <input name="RealName" value="<% $u->RealName %>"><input type="submit" value="Update name">
  30 </form>
  31           <& /Elements/TitleBoxEnd &>
  32
  33         <& /Elements/TitleBoxStart, title => 'User ID'  &>
  34 <form method=post>
  35 <input type="hidden" name="id" value="<%$id%>">
  36 <input name="Name" value="<% $u->Name %>"><input type="submit" value="Update ID">
  37 </form>
  38           <& /Elements/TitleBoxEnd &>
  39
  40 %# TODO: alternative email addresses + merging users
  41
  42 <%ARGS>
  43 $id => $session{CurrentUser} ? $session{CurrentUser}->Id : 0
  44 $Signature => undef
  45 $Email => undef
  46 $RealName => undef
  47 $Name => undef
  48 </%ARGS>
  49
  50 <%INIT>
  51 require RT::User;
  52 my $u=RT::User->new($session{CurrentUser});
  53 $u->Load($id) || die "Couldn't load that user ($id)";
  54 if ($Signature) {
  55 my ($val, $msg)=$u->SetSignature($Signature);
  56 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
  57 }
  58
  59 if ($Email) {
  60 my ($val, $msg)=$u->SetEmailAddress($Email);
  61 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
  62 }
  63
  64 if ($RealName) {
  65 my ($val, $msg)=$u->SetRealName($RealName);
  66 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
  67 }
  68
  69 if ($Name) {
  70 my ($val, $msg)=$u->SetName($Name);
  71 $RT::Logger->log(level=>($val ? 'info' : 'error'), message=>$msg);
  72 }
  73
  74 if ($ARGS{NewWindowSetting}) {
  75 if ($ARGS{NewWindowOption}) {
  76 $session{NewWindowOption}=1;
  77 } else {
  78 delete $session{NewWindowOption};
  79 }
  80 if ($ARGS{AlwaysNewWindowOption}) {
  81 $session{NewWindowOption}=1;
  82 $session{AlwaysNewWindowOption}=1;
  83 } else {
  84 delete $session{AlwaysNewWindowOption};
  85 }
  86 }
  87
  88 </%INIT>
  89
  90
  91
  92
  93
  94
  95
  96
  97