press_admin_p

one of the documented procedures in this installation of the ACS
Usage:
press_admin_p   db   user_id   group_id
What it does:
returns 1 if this user is a valid site-wide or group administrator for press coverage, 0 otherwise
Defined in: /web/philip/tcl/press-defs.tcl

Source code:


    if [ad_administrator_p $db $user_id] {
	# this is a site-wide admin, return true always
	return 1
    } elseif {$user_id != 0} {
	# the person isn't a site-wide admin but maybe he can be authorized
	# because he is a group admin (since this is for a group-specific item)
	return [ad_user_group_authorized_admin $user_id $group_id $db]
    }
    # not authorized via one of the preceding mechanisms
    return 0


philg@mit.edu