[livejournal] r18834: LJSUP-8533 Logging automatic email inval...

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

Modified: trunk/cgi-bin/LJ/User/EmailStatus.pm
===================================================================
--- trunk/cgi-bin/LJ/User/EmailStatus.pm	2011-04-08 12:05:11 UTC (rev 18833)
+++ trunk/cgi-bin/LJ/User/EmailStatus.pm	2011-04-11 04:10:52 UTC (rev 18834)
@@ -113,7 +113,7 @@
     my $is_disabled = $params{disabled} ? 1 : undef;
     
     LJ::MemCache::delete($class->get_cache_key($params{email})) if(!$params{disabled});
-   
+print $is_disabled;
     my $dbh = LJ::get_db_writer() or die ('Failed to get db connection');
     
     unless ($is_disabled) {
@@ -142,8 +142,7 @@
         my $new_status = $is_disabled ? 'T' : 'A';
         
         LJ::update_user($user, { 'status' => $new_status } );
- 
-        LJ::statushistory_add($user->userid, $system_user->userid, 'email_status', $user->email_raw . ": $old_status -> $new_status");
+        LJ::infohistory_add($user->userid, 'email_status', $old_status, "new value: $new_status");
     }
 }