[livejournal] r20286: LJSUP-9784 (Log (un)delete/purge to stat...

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;