presentation-acl-delete.tcl

This page revokes certain privilege on a presentation from a user.

Location:
/packages/wp-slim/www/presentation-acl-delete.tcl
Author:
Haolan Qin <hqin@arsdigita.com>
Created:
01/22/2001
CVS ID:
$Id: presentation-acl-delete.tcl,v 1.4 2015/06/27 20:34:42 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/wp/www/presentation-acl-delete.tcl

ad_page_contract {

    This page revokes certain privilege on a presentation from a user.

    @author Haolan Qin (hqin@arsdigita.com)
    @creation-date 01/22/2001
    @cvs-id $Id: presentation-acl-delete.tcl,v 1.4 2015/06/27 20:34:42 gustafn Exp $
} {
    pres_item_id:naturalnum,notnull
    role:notnull
    user_id:naturalnum,notnull
}

permission::require_permission -object_id $pres_item_id -privilege wp_admin_presentation

set privilege [ad_decode $role "read" "wp_view_presentation" "write" "wp_edit_presentation" "admin" "wp_admin_presentation" ""]

db_exec_plsql revoke_privilege {
    declare
      owner_id  acs_objects.creation_user%TYPE;
    begin
      select creation_user into owner_id
      from acs_objects
      where object_id = :pres_item_id;
 
      if (owner_id <> :user_id) then
        acs_permission.revoke_permission(:pres_item_id, :user_id, :privilege);
      end if;
    end;
}

ad_returnredirect [export_vars -base presentation-acl {pres_item_id}]