im_is_user_site_wide_or_intranet_admin db { user_id " " }What it does:
Returns 1 if a user is a site-wide administrator or a member of the intranet administrative groupDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
if { [empty_string_p $user_id] } { set user_id [ad_verify_and_get_user_id $db] } if { $user_id == 0 } { return 0 } if { [im_user_intranet_admin_p $db $user_id] } { # Site-Wide Intranet Administrator return 1 } elseif { [ad_permission_p $db site_wide "" "" $user_id] } { # Site-Wide Administrator return 1 } return 0