message-approve.tcl

Approve a Message

Location:
/packages/forums/www/moderate/message-approve.tcl
Author:
Ben Adida <ben@openforce.net>
Created:
2002-05-24
CVS ID:
$Id: message-approve.tcl,v 1.9.2.2 2022/08/30 13:08:30 antoniop Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Approve a Message

    @author Ben Adida (ben@openforce.net)
    @creation-date 2002-05-24
    @cvs-id $Id: message-approve.tcl,v 1.9.2.2 2022/08/30 13:08:30 antoniop Exp $

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

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

# Approve the message
forum::message::approve -message_id $message_id
# flush templating cache so if this was a new thread UI list will be rebuilt
forum::flush_templating_cache -forum_id $message(forum_id)

ad_returnredirect "$return_url?message_id=$message_id"
ad_script_abort

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