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 }