im_group_id_from_parameter_helper

one of the documented procedures in this installation of the ACS
Usage:
im_group_id_from_parameter_helper   short_name   { db "" }
What it does:
Returns the group_id for the user_group with the specified short_name. If no such group exists, returns 0
Defined in: /web/philip/tcl/intranet-defs.tcl

Source code:


    if { [empty_string_p $db] } {
	set db [ns_db gethandle subquery]
	set release_handle 1
    } else {
	set release_handle 0
    }

    set group_id [database_to_tcl_string_or_null $db  "select group_id 
                from user_groups 
               where short_name='[DoubleApos $short_name]'"]

    if { $release_handle } {
	ns_db releasehandle $db
    }
    if { [empty_string_p $group_id] } {
	return 0
    } else {
	return $group_id
    }


philg@mit.edu