#/chat/www/room-delete-2.tcl
ad_page_contract {
    Delete the chat room.

    @author David Dao (ddao@arsdigita.com)
    @creation-date November 16, 2000
    @cvs-id $Id: room-delete-2.tcl,v 1.5 2007/11/19 01:14:16 donb Exp $
} {
    room_id:integer,notnull
}

ad_require_permission $room_id chat_room_delete

if { [catch {chat_room_delete $room_id} errmsg] } {
    ad_return_complaint 1 "[_ chat.Delete_room_failed]: $errmsg"
}

ad_returnredirect . 




