one of the documented procedures in this installation of the ACS
ad_general_comment_update   db   comment_id   content   ip_address   { html_p "f" }   { one_line "" }
What it does:
Updates a comment in the general comment system. Inserts a row into the audit table as well.
Defined in: /web/philip/tcl/ad-general-comments.tcl

Source code:


    ns_db dml $db "begin transaction" 
    # insert into the audit table

    ns_db dml $db "insert into general_comments_audit
(comment_id, user_id, ip_address, audit_entry_time, modified_date, content, one_line)
select comment_id, user_id, ip_address, sysdate, modified_date, content, one_line from general_comments where comment_id = $comment_id"

    set sql "update general_comments
set content = empty_clob(),  one_line = [ns_dbquotevalue $one_line],
html_p = '$html_p',
ip_address = '[DoubleApos $ip_address]'
where comment_id = $comment_id returning content into :1"

    if [ad_parameter LogCLOBdmlP acs 0] {
	ns_log Notice "About to use $sql\n -- to update --  \n$content\n\n -- in the database -- \n"

    ns_ora clob_dml $db $sql $content

    ns_db dml $db "end transaction"