ad_user_group_member

one of the documented procedures in this installation of the ACS
Usage:
ad_user_group_member   db   group_id   { user_id "" }
What it does:
Returns 1 if user is a member of the group. 0 otherwise.
Defined in: /web/philip/packages/acs-core/user-groups-procs.tcl

Source code:



    if [empty_string_p $user_id] {
	set user_id [ad_verify_and_get_user_id]
    }

    set n_rows [database_to_tcl_string $db "select decode(count(*),0,0,1) from user_group_map where user_id =$user_id and group_id = $group_id"]
    if { $n_rows > 0 } {
	return 1
    } else {
	return 0
    }


philg@mit.edu