@publish_body;noquote@ @more_link;noquote@ -Index: openacs-4/packages/news-portlet/www/summary.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/summary.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/news-portlet/www/summary.tcl 4 Dec 2002 09:55:27 -0000 1.2 +++ openacs-4/packages/news-portlet/www/summary.tcl 23 Oct 2003 09:19:34 -0000 1.3 @@ -31,10 +31,12 @@ publish_title, html_p, publish_date, - '' || item_creator || '' as creator_link + creation_user, + item_creator from news_items_live_or_submitted where item_id = :item_id"] +set creator_url [acs_community_member_url -user_id $creation_user] if { $item_exist_p } { @@ -71,29 +73,9 @@ set more_link "" if { [string length $publish_body] > 1000 } { - set publish_body "[string range $publish_body 0 1000]" - set more_link "......read more" + set publish_body [string_truncate -len 1000 -- $publish_body] + set more_link "Contributed by @creator_link;noquote@ +
Contributed by @item_creator@