Committer: iaskarov
LJSUP-8533 Logging automatic email invalidationU 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"); } }