message-delete.tcl

Delete a Message

Location:
/packages/forums/www/moderate/message-delete.tcl
Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-24

CVS ID:

$Id: message-delete.tcl,v 1.18.2.3 2022/08/30 13:08:30 antoniop Exp $

File Contents

ad_page_contract {

    Delete a Message

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

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

#
# Select the forums message into the Tcl array (including message_id)
#
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)

# stylesheets
template::head::add_css -href /resources/forums/forums.css -media all -lang [ad_conn language]

# js scripts
template::head::add_script -type "text/javascript" -src "/resources/forums/forums.js"

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

message-delete.tcl

Related Files

File Contents