& /Elements/Header, Title=>"Preferences" &>
<& /Elements/Tabs &>
<& /Elements/ListActions, actions => \@results &>
TODO edit password
<& /Elements/TitleBoxStart, title => 'Signature' &>
<%INIT>
my @results;
if ($Signature) {
$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);
}
}
%INIT>
<%ARGS>
$Signature => undef
%ARGS>