im_is_user_site_wide_or_intranet_admin

one of the documented procedures in this installation of the ACS
Usage:
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 group
Defined 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


philg@mit.edu