[dw-free] Implement Latest Posts feed

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/3918d61981eb]

http://bugs.dwscoalition.org/show_bug.cgi?id=316

Enable cuts, and only show the first 2000 bytes of the entry.

Patch by mark.

Files modified:

• htdocs/latest.bml

--------------------------------------------------------------------------------
diff -r 466abf514b6c -r 3918d61981eb htdocs/latest.bml
--- a/htdocs/latest.bml	Sat Oct 31 05:10:54 2009 +0000
+++ b/htdocs/latest.bml	Sat Oct 31 05:39:58 2009 +0000
@@ -123,7 +123,6 @@ EOF
 
             # output entry HTML
             my $subj = $obj->subject_html || 'no subject';
-            my $evt = $obj->event_html;
             my $tags = join ', ', sort { $a cmp $b } $obj->tags;
             my $user = $obj->poster->ljuser_display;
             if ( ! $obj->poster->equals( $obj->journal ) ) {
@@ -131,6 +130,7 @@ EOF
             }
             my $time = LJ::ago_text( $now - $obj->logtime_unix );
             my $url = $obj->url;
+            my $evt = $obj->event_html_summary( 2000, { cuturl => $url } );
             my $comments = $obj->reply_count == 1 ? "1 comment" : ( $obj->reply_count > 0 ? $obj->reply_count . ' comments' : 'no comments' );
             my $replyurl = $obj->reply_url;
 
--------------------------------------------------------------------------------