Committer: ailyin
LJSUP-9784 (Log (un)delete/purge to statushistory)U trunk/htdocs/accountstatus.bml
Modified: trunk/htdocs/accountstatus.bml =================================================================== --- trunk/htdocs/accountstatus.bml 2011-10-11 11:58:56 UTC (rev 20285) +++ trunk/htdocs/accountstatus.bml 2011-10-11 12:19:14 UTC (rev 20286) @@ -77,6 +77,9 @@ $res = $u->set_deleted; + LJ::statushistory_add( $u, $remote, 'journal_status', + 'Set to deleted via accountstatus.bml' ); + if($res) { # sending ESN status was changed LJ::Event::SecurityAttributeChanged->new($u, { @@ -99,6 +102,13 @@ O => 'set_readonly', R => 'set_renamed', }->{$new_status}; + + my $statushistory_msg = 'Undeleted via accountstatus.bml, ' + . 'setting statusvis to ' . $new_status; + + LJ::statushistory_add( $u, $remote, 'journal_status', + $statushistory_msg ); + return $dberr->("Can't set status '$new_status'") unless $method; $res = $u->$method;