forum.tcl

Moderate a Forum

Location:

/packages/forums/www/moderate/forum.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-24

CVS ID:

$Id: forum.tcl,v 1.7.2.2 2022/08/30 13:08:30 antoniop Exp $

Related Files

• packages/forums/www/moderate/forum.tcl
• packages/forums/www/moderate/forum.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Moderate a Forum

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

} {
    forum_id:object_type(forums_forum),notnull
}

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

# Get forum data
forum::get -forum_id $forum_id -array forum

ad_return_template

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