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 2018/04/23 21:32:46 hectorr Exp $

Related Files

• packages/acs-subsite/www/permissions/revoke-2.tcl

[ hide source ] | [ make this the default ]

File Contents

# packages/acs-core-ui/www/acs_object/permissions/revoke-2.tcl

ad_page_contract {

  @author rhs@mit.edu
  @creation-date 2000-08-20
  @cvs-id $Id: revoke-2.tcl,v 1.10 2018/04/23 21:32:46 hectorr 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: