<& /Elements/Header, Title=>"Preferences" &>
<& /Elements/Tabs &>
<& /Elements/ListActions, actions => \@results &>
<%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