Index: openacs-4/packages/chat/www/moderator-revoke-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/moderator-revoke-2.tcl,v diff -u -N --- openacs-4/packages/chat/www/moderator-revoke-2.tcl 14 Feb 2019 16:15:01 -0000 1.4.2.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,24 +0,0 @@ -#/chat/www/moderator-revoke-2.tcl -ad_page_contract { - - Revoke moderator privilege. - - @author David Dao (ddao@arsdigita.com) - @creation-date November 22, 2000 - @cvs-id $Id: moderator-revoke-2.tcl,v 1.4.2.1 2019/02/14 16:15:01 gustafn Exp $ -} { - room_id:naturalnum,notnull - party_id:naturalnum,notnull -} - -permission::require_permission -object_id $room_id -privilege chat_moderator_revoke - -chat_moderator_revoke $room_id $party_id - -ad_returnredirect "room?room_id=$room_id" - -# Local variables: -# mode: tcl -# tcl-indent-level: 4 -# indent-tabs-mode: nil -# End: