ad_administrator_p

one of the documented procedures in this installation of the ACS
Usage:
ad_administrator_p   db   { user_id "" }
What it does:
Returns 1 if the user is part of the site-wide administration group. 0 otherwise.
Defined in: /web/philip/packages/acs-core/admin-procs.tcl

Source code:


    if [empty_string_p $user_id] {
	set user_id [ad_verify_and_get_user_id $db]
    }

    set ad_group_member_p [database_to_tcl_string $db "select ad_group_member_p($user_id, system_administrator_group_id) from dual"]

    return [ad_decode $ad_group_member_p "t" 1 0]


philg@mit.edu