[livejournal] r21188: LJSV-2075: Show comments from deleted us...

U   trunk/cgi-bin/LJ/S2/EntryPage.pm

Modified: trunk/cgi-bin/LJ/S2/EntryPage.pm
===================================================================
--- trunk/cgi-bin/LJ/S2/EntryPage.pm	2012-02-15 07:33:43 UTC (rev 21187)
+++ trunk/cgi-bin/LJ/S2/EntryPage.pm	2012-02-15 08:42:01 UTC (rev 21188)
@@ -229,6 +229,13 @@
             $commentposted = 1
                  if ($last_talkid == $dtalkid && $last_jid == $remote->{'userid'});
 
+            my $deleted = $com->{'state'} eq 'D'? 1 : 0;
+            if ( $poster and $poster->{'statusvis'} eq 'D' ) {
+                # LJSV-2075
+                my ($comments, $community_entries) = split ':', $poster->prop("purge_external_content");
+                $deleted = 1 if $comments;
+            }
+
             my $s2com = {
                 '_type' => 'Comment',
                 'journal' => $userlite_journal,
@@ -256,7 +263,7 @@
                 'can_marked_as_spam' => LJ::Talk::can_marked_as_spam($remote, $u, $entry->poster, $poster),
                 'screened' => $com->{'state'} eq "S" ? 1 : 0,
                 'frozen' => $com->{'state'} eq "F" || !$entry->posting_comments_allowed ? 1 : 0,
-                'deleted' => $com->{'state'} eq "D" ? 1 : 0,
+                'deleted' => $deleted,
                 'link_keyseq' => [ 'delete_comment' ],
                 'anchor' => "t$dtalkid",
                 'dom_id' => "ljcmt$dtalkid",