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

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