Index: openacs-4/packages/news/lib/news.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/news.tcl,v diff -u -r1.3.2.3 -r1.3.2.4 --- openacs-4/packages/news/lib/news.tcl 19 Aug 2021 17:22:58 -0000 1.3.2.3 +++ openacs-4/packages/news/lib/news.tcl 23 Nov 2023 11:45:17 -0000 1.3.2.4 @@ -6,6 +6,12 @@ publish_body:allhtml creator_link:html publish_format:notnull +} -validate { + valid_mime_type -requires {publish_format:notnull} { + if { ![ad_html_text_convertible_p -from $publish_format -to text/html] } { + ad_complain [_ acs-tcl.lt_name_is_not_valid [list name publish_format]] + } + } } set publish_body [ad_html_text_convert -from $publish_format -to text/html -- $publish_body]