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

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

Modified: trunk/cgi-bin/LJ/User.pm
===================================================================
--- trunk/cgi-bin/LJ/User.pm	2011-02-07 10:39:51 UTC (rev 18226)
+++ trunk/cgi-bin/LJ/User.pm	2011-02-07 11:37:59 UTC (rev 18227)
@@ -3553,6 +3553,10 @@
 # delete all of a user's subscriptions
 sub delete_all_subscriptions {
     my $u = shift;
+
+    ## Logging for delete all subscriptions
+    LJ::statushistory_add ( $u, $u, 'remove_subs', join (", ", map { $_->id } $u->subscriptions ) );
+
     return LJ::Subscription->delete_all_subs($u);
 }