[livejournal] r17759: LJSUP-7432: Display info of skipping ent...

U   trunk/cgi-bin/LJ/Entry.pm
U   trunk/htdocs/admin/entryprops.bml

Modified: trunk/cgi-bin/LJ/Entry.pm
===================================================================
--- trunk/cgi-bin/LJ/Entry.pm	2010-11-23 11:20:18 UTC (rev 17758)
+++ trunk/cgi-bin/LJ/Entry.pm	2010-11-23 11:30:26 UTC (rev 17759)
@@ -1339,6 +1339,19 @@
     return 1;
 }
 
+# get skip/include status for LJ::get_recent_items() call
+sub get_suspended_mark {
+    my $self = shift;
+
+    # we cannot use preload_rows() because memcache does not contain 'compressed' field
+    # and most code of LJ does not need this field,
+    # so, there are no reasons to include it into memcache
+
+    my $u = $self->journal;
+    my $compressed = $u->selectrow_array("SELECT compressed FROM log2 WHERE journalid=? AND jitemid=? ", undef, $self->journalid, $self->jitemid);
+    return $compressed;
+}
+
 package LJ;
 
 use Class::Autouse qw (

Modified: trunk/htdocs/admin/entryprops.bml
===================================================================
--- trunk/htdocs/admin/entryprops.bml	2010-11-23 11:20:18 UTC (rev 17758)
+++ trunk/htdocs/admin/entryprops.bml	2010-11-23 11:30:26 UTC (rev 17759)
@@ -53,6 +53,7 @@
     $ret .= "<strong>Server Date/Time</strong>: " . $entry->logtime_mysql . "<br />";
     $ret .= "<strong>Journal Adult Content</strong>: " . ($entry->journal->adult_content || "none")
         . " (admin setting: " . ($entry->journal->admin_content_flag || "none") . ")<br />";
+    $ret .= "<strong>Skip/iNclude in recent entries</strong>: " . $entry->get_suspended_mark . "<br />";
 
     $ret .= "<br />";