group_type::drop_all_groups_p (public)
group_type::drop_all_groups_p [ -user_id user_id ] group_type
Defined in packages/acs-subsite/tcl/group-type-procs.tcl
Returns 1 if the user has permission to delete all groups of the specified type. 0 otherwise.
user_id
defaults toad_conn user_id
if we have a connection. If there is no connection, and no user id, throws an error.
- Switches:
- -user_id
(optional)- Parameters:
- group_type
- Author:
- Michael Bryzek <mbryzek@arsdigita.com>
- Created:
- 12/2000
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: if { $user_id eq "" } { if { ![ns_conn isconnected] } { error "group_type::drop_all_groups_p: User ID not specified and we have no connection from which to obtain current user ID." } set user_id [ad_conn user_id] } return [db_string group_exists_p { select case when exists (select 1 from acs_objects o where object_type = :group_type and not acs_permission.permission_p(o.object_id, :user_id, 'delete')) then 1 else 0 end from dual }]Generic XQL file: packages/acs-subsite/tcl/group-type-procs.xql
PostgreSQL XQL file: packages/acs-subsite/tcl/group-type-procs-postgresql.xql
Oracle XQL file: packages/acs-subsite/tcl/group-type-procs-oracle.xql