Index: openacs-4/packages/news-portlet/www/news-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.adp,v diff -u -r1.10 -r1.11 --- openacs-4/packages/news-portlet/www/news-portlet.adp 4 Dec 2002 09:55:27 -0000 1.10 +++ openacs-4/packages/news-portlet/www/news-portlet.adp 23 Oct 2003 09:19:34 -0000 1.11 @@ -41,9 +41,9 @@ - +
  • Index: openacs-4/packages/news-portlet/www/news-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/news-portlet/www/news-portlet.tcl 18 Nov 2002 17:59:27 -0000 1.15 +++ openacs-4/packages/news-portlet/www/news-portlet.tcl 23 Oct 2003 09:19:34 -0000 1.16 @@ -31,6 +31,7 @@ set list_of_package_ids $config(package_id) set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0] -db_multirow -extend { publish_date } news_items select_news_items {} { +db_multirow -extend { publish_date view_url } news_items select_news_items {} { set publish_date [lc_time_fmt $publish_date_ansi "%x"] + set view_url [export_vars -base "${url}item" { item_id }] } Index: openacs-4/packages/news-portlet/www/summary.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/summary.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/news-portlet/www/summary.adp 22 Oct 2003 16:14:15 -0000 1.4 +++ openacs-4/packages/news-portlet/www/summary.adp 23 Oct 2003 09:19:34 -0000 1.5 @@ -3,5 +3,5 @@
    @publish_body;noquote@ @more_link;noquote@ -

    Contributed by @creator_link;noquote@ +

    Contributed by @item_creator@

    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 "
    » [_ news-portlet.Read_more]" } set publish_body [ad_convert_to_html -html_p $html_p $publish_body] - - - -ad_return_template - - - - - - - - - - - - - - - -