[livejournal] r18234: LJSUP-7594. Managing users subscriptions...

LJSUP-7594. Managing users subscriptions should be more accurate

U   trunk/cgi-bin/LJ/User.pm

Modified: trunk/cgi-bin/LJ/User.pm
===================================================================
--- trunk/cgi-bin/LJ/User.pm	2011-02-08 05:49:55 UTC (rev 18233)
+++ trunk/cgi-bin/LJ/User.pm	2011-02-08 08:20:17 UTC (rev 18234)
@@ -3573,6 +3573,12 @@
 sub delete_all_inactive_subscriptions {
     my $u = shift;
     my $dryrun = shift;
+
+    ## Logging for delete all subscriptions
+    my $remote = LJ::get_remote();
+    my $admin = $remote || LJ::load_user('system');
+    LJ::statushistory_add ( $u, $admin, 'remove_subs', scalar $u->subscriptions );
+
     return LJ::Subscription->delete_all_inactive_subs($u, $dryrun);
 }