im_can_user_administer_group db { group_id " " } { user_id " " }What it does:
An intranet user can administer a given group if thery are a site-wide intranet user, a general site-wide administrator, or if they belong to the specified user groupDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
if { [empty_string_p $user_id] } {
set user_id [ad_get_user_id]
}
if { $user_id == 0 } {
return 0
}
set site_wide_or_intranet_user [im_is_user_site_wide_or_intranet_admin $db $user_id]
if { $site_wide_or_intranet_user } {
return 1
}
# Else, if the user is in the group with any role, s/he can administer that group
return [database_to_tcl_string $db "select decode(ad_group_member_p($user_id, $group_id), 't', 1, 0) from dual"]