im_allow_authorized_or_admin_only

one of the documented procedures in this installation of the ACS
Usage:
im_allow_authorized_or_admin_only   db   group_id   current_user_id
What 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 administrator
Defined 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
    }


philg@mit.edu