Index: openacs-4/packages/news/lib/item.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/item.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/news/lib/item.tcl 7 Aug 2017 23:48:12 -0000 1.5 +++ openacs-4/packages/news/lib/item.tcl 28 Apr 2021 13:55:38 -0000 1.5.2.1 @@ -1,18 +1,18 @@ # /packages/news/lib/item.tcl ad_page_contract { - + Page to view one item (live or archived) in its active revision @author stefan@arsdigita.com @creation-date 2000-12-20 @cvs-id $Id$ - + } { item_id:naturalnum,notnull } -properties { title:onevalue - context:onevalue + context:onevalue item_exist_p:onevalue publish_title:onevalue publish_lead:onevalue @@ -50,7 +50,7 @@ if { $item_exist_p } { - # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails! + # 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. @@ -68,7 +68,7 @@ if {[info exists html_p] && $html_p == "f"} { set publish_body [ad_text_to_html -- $publish_body] } - + if { [parameter::get -parameter SolicitCommentsP -default 0]} { if {[permission::permission_p -object_id $item_id -privilege general_comments_create] } {