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 -N -r1.7 -r1.8 --- openacs-4/packages/news-portlet/www/summary.tcl 9 Nov 2008 23:29:28 -0000 1.7 +++ openacs-4/packages/news-portlet/www/summary.tcl 29 Dec 2009 01:05:14 -0000 1.8 @@ -15,7 +15,7 @@ publish_title:onevalue publish_date:onevalue publish_body:onevalue - html_p:onevalue + publish_format:onevalue creator_link:onevalue comments:onevalue comment_link:onevalue @@ -29,7 +29,8 @@ select item_id, live_revision, publish_title, - html_p, + publish_body, + publish_format, publish_date, creation_user, item_creator @@ -41,18 +42,6 @@ if { $item_exist_p } { - # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails! - # when this'll work, you get publish_body by selecting 'publish_body' directly from above view - # - # RAL: publish_body is already snagged in the 1st query above for postgres. - # CERM: This work around is not used here, so this may not work for postgres. - # - - set publish_body [db_string get_content "select content - from cr_revisions - where revision_id = :live_revision"] - - #currently not using comments in the summary but someone might want to change the template so they are available. if { [ad_parameter SolicitCommentsP "news" 0] && [ad_permission_p $item_id general_comments_create] } { @@ -79,8 +68,6 @@ set more_link "

» [_ news-portlet.Read_more]

" } -if { !$html_p } { - set publish_body "

[ad_html_text_convert -from "text/plain" -to "text/html" -- $publish_body]

" -} +set publish_body "

[ad_html_text_convert -from $publish_format -to "text/html" -- $publish_body]

" set display_item_attribution_p [parameter::get_from_package_key -package_key news-portlet -parameter display_item_attribution_p -default 1]