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 0Defined 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
}