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

        Patch by mark. 

diffs (19 lines):

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;
 
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to