#/chat/www/user-ban-2.tcl
ad_page_contract {
    
    Ban user.

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

permission::require_permission -object_id $room_id -privilege chat_user_ban

chat_user_ban $room_id $party_id

ad_returnredirect "room?room_id=$room_id"
