message-move.tcl

Move a Message to other forum

Location:

/packages/forums/www/moderate/message-move.tcl

Author:

Natalia Pérez <nperper@it.uc3m.es>

Created:

2005-03-14

Related Files

• packages/forums/www/moderate/message-move.tcl
• packages/forums/www/moderate/message-move.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Move a Message to other forum

    @author Natalia Pérez (nperper@it.uc3m.es)
    @creation-date 2005-03-14    

} {
    message_id:object_type(forums_message)
    {return_url:localurl "../message-view"}
    {confirm_p:boolean,notnull 0}
}

# Select the stuff
forum::message::get -message_id $message_id -array message

# Check that the user can moderate the forum
forum::security::require_moderate_forum -forum_id $message(forum_id)

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