news.tcl

Display one news revision.

Location:

/packages/news/lib/news.tcl

Related Files

• packages/news/lib/news.tcl
• packages/news/lib/news.adp

[ hide source ] | [ make this the default ]

File Contents

ad_include_contract {
    Display one news revision.
} {
    publish_title:optional
    publish_lead:optional
    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]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: