forum::message::delete (public)

 forum::message::delete -message_id message_id [ -no_callback ]

Defined in packages/forums/tcl/messages-procs.tcl

Delete a message and obviously all of its descendents.

Switches:

-message_id (required)

-no_callback (optional, boolean)

Testcases:

forum_count_test, web_forums_message_and_reply

Source code:

    db_transaction {
        if {!$no_callback_p} {
            callback forum::message_delete -package_id [ad_conn package_id] -message_id $message_id
        }

        forum::message::get -message_id $message_id -array msg
        set forum_id  $msg(forum_id)

        # Remove the notifications
        notification::request::delete_all -object_id $message_id

        # Remove the message
        set var_list [list [list message_id $message_id]]
        package_exec_plsql -var_list $var_list forums_message delete_thread

        # flush the forum cache to update the thread count
        forum::flush_cache -forum_id $forum_id
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/forums/tcl/messages-procs.xql