revoke-2.tcl
- Location:
- /packages/acs-subsite/www/permissions/revoke-2.tcl
- Author:
- rhs@mit.edu
- Created:
- 2000-08-20
- CVS ID:
$Id: revoke-2.tcl,v 1.10.2.1 2024/08/05 14:12:41 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { @author rhs@mit.edu @creation-date 2000-08-20 @cvs-id $Id: revoke-2.tcl,v 1.10.2.1 2024/08/05 14:12:41 gustafn Exp $ } { object_id:naturalnum,notnull revoke_list:multiple { operation "" } {application_url ""} } permission::require_permission -object_id $object_id -privilege admin if {$operation eq "Yes"} { db_transaction { foreach item $revoke_list { lassign $item party_id privilege permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege } } } ad_returnredirect [export_vars -base one {object_id application_url}] ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: