press_admin_p db user_id group_idWhat it does:
returns 1 if this user is a valid site-wide or group administrator for press coverage, 0 otherwiseDefined 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