im_user_select db select_name { default " " }What it does:
Returns an html select box named $select_name and defaulted to $default with a list of all the available project_leads in the systemDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
# We need a "distinct" because there can be more than one # mapping between a user and a group, one for each role. # set sql "select distinct u.last_name || ', ' || u.first_names, u.user_id, u.last_name, u.first_names from users_active u, user_group_map ugm where u.user_id = ugm.user_id and ugm.group_id = [im_employee_group_id $db] order by lower(u.last_name), lower(u.first_names)" return [im_selection_to_select_box $db $sql $select_name $default]