forum::message::edit (public)

 forum::message::edit -message_id message_id -subject subject \
    -content content -format format [ -no_callback ]

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

Editing a message. There is no versioning here! This means this function is for admins only!

Switches:

-message_id (required)

-subject (required)

-content (required)

-format (required)

-no_callback (optional, boolean)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

web_forums_message_and_reply

Source code:

    # do the update
    db_dml update_message {}
    db_dml update_message_title {}

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

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="forum::message::edit.update_message_title">
    <querytext>
            update acs_objects 
            set title = :subject
            where object_id = :message_id and object_type = 'forums_message'
        </querytext>
</fullquery>

<fullquery name="forum::message::edit.update_message">
    <querytext>
            update forums_messages
            set subject = :subject,
                content = :content,
                format = :format
            where message_id = :message_id
        </querytext>
</fullquery>

packages/forums/tcl/messages-procs.xql