Index: openacs-4/packages/chat/www/user-revoke-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke-2.tcl,v diff -u -N --- openacs-4/packages/chat/www/user-revoke-2.tcl 14 Mar 2006 12:16:09 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,18 +0,0 @@ -#/chat/www/user-revoke-2.tcl -ad_page_contract { - - Revoke chat user privilege. - - @author David Dao (ddao@arsdigita.com) - @creation-date November 22, 2000 - @cvs-id $Id: user-revoke-2.tcl,v 1.2 2006/03/14 12:16:09 emmar Exp $ -} { - room_id:integer,notnull - party_id:integer,notnull -} - -ad_require_permission $room_id chat_user_revoke - -chat_user_revoke $room_id $party_id - -ad_returnredirect "room?room_id=$room_id"