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):
%3 test_acs_subsite_check_composite_group acs_subsite_check_composite_group (test acs-subsite) group::admin_p group::admin_p test_acs_subsite_check_composite_group->group::admin_p relation::get_id relation::get_id (public) group::admin_p->relation::get_id packages/acs-subsite/www/index.tcl packages/acs-subsite/ www/index.tcl packages/acs-subsite/www/index.tcl->group::admin_p

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

[ hide source ] | [ make this the default ]
Show another procedure: