<& /Elements/Header, Title=>"Preferences" &> <& /Elements/Tabs &> <& /Elements/ListActions, actions => \@results &>

% unless ($RT::WebExternalAuth) { <& /Elements/TitleBoxStart, title => 'Change password' &> New password: Confirm: <& /Elements/TitleBoxEnd &>
% } <& /Elements/TitleBoxStart, title => 'Signature' &> <% $session{'CurrentUser'}->UserObj->Signature %>

<& /Elements/TitleBoxEnd &> <& /Elements/Submit &>

<%INIT> my @results; if ($NewPass1) { if ($NewPass1 ne $NewPass2) { push (@results, "Passwords did not match."); } else { my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetPassword($NewPass1); push (@results, "Password: ".$msg); } } if ($Signature || $SignatureMagic) { $Signature =~ s/(\r\n|\r)/\n/g; if ($Signature ne $session{'CurrentUser'}->UserObj->Signature) { my ($val, $msg)=$session{'CurrentUser'}->UserObj->SetSignature($Signature); push (@results, "Signature: ".$msg); } } #A hack to make sure that session gets rewritten. $session{'i'}++; <%ARGS> $Signature => undef $SignatureMagic => undef $NewPass1 => undef $NewPass2 => undef