group::admin_p (public)
group::admin_p -group_id group_id -user_id user_id
Defined in packages/acs-subsite/tcl/group-procs.tcl
- Switches:
- -group_id (required)
- -user_id (required)
- Returns:
- 1 if user_id is in the admin_rel for group_id
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- acs_subsite_check_composite_group
Source code: set admin_rel_id [relation::get_id -object_id_one $group_id -object_id_two $user_id -rel_type "admin_rel"] # The party is an admin if the call above returned something nonempty return [expr {$admin_rel_id ne ""}]XQL Not present: Generic PostgreSQL XQL file: packages/acs-subsite/tcl/group-procs-postgresql.xql
Oracle XQL file: packages/acs-subsite/tcl/group-procs-oracle.xql