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
(boolean) (optional)

Partial Call Graph (max 5 caller/called nodes):
%3 test_web_forums_message_and_reply web_forums_message_and_reply (test forums) forum::message::edit forum::message::edit test_web_forums_message_and_reply->forum::message::edit ad_conn ad_conn (public) forum::message::edit->ad_conn callback callback (public) forum::message::edit->callback db_dml db_dml (public) forum::message::edit->db_dml packages/forums/lib/message/edit.tcl packages/forums/ lib/message/edit.tcl packages/forums/lib/message/edit.tcl->forum::message::edit

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

[ hide source ] | [ make this the default ]
Show another procedure: