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]