one of the documented procedures in this installation of the ACS
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 system
Defined 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]