acs_user::site_wide_admin_p (public)

 acs_user::site_wide_admin_p [ -user_id user_id ]

Defined in packages/acs-tcl/tcl/community-core-procs.tcl

Return 1 if the specified user (defaults to logged-in user) is site-wide administrator and 0 otherwise.

Switches:

-user_id (optional)

The id of the user to check for admin privilege.

Author:

Peter Marklund

Testcases:

demote_promote_a_user

Source code:

    if { $user_id eq ""} {
        set user_id [ad_conn user_id]
    }

    return [permission::permission_p -party_id $user_id  -object_id [acs_magic_object security_context_root]  -privilege "admin"]

Generic XQL file:

packages/acs-tcl/tcl/community-core-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/community-core-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/community-core-procs-oracle.xql