im_allow_authorized_or_admin_only db group_id current_user_idWhat it does:
Returns an error message if the specified user is not able to administer the specified group or the user is not a site-wide/intranet administratorDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set user_admin_p [im_can_user_administer_group $db $group_id $current_user_id] if { ! $user_admin_p } { # We let all authorized users have full administrative control set user_admin_p [im_user_is_authorized_p $db $current_user_id] } if { $user_admin_p == 0 } { im_restricted_access return }