one of the documented procedures in this installation of the ACS
fh_office_widget {-default "" -select_name "office_id"} db
What it does:
Returns a select widget of offices.

If -default is given than that item is selected.

-select_name determines the name of the HTML select widget. The default value is "office_id".

Defined in: /web/philip/tcl/ch-defs.tcl

Source code:

arg_parser_for_fh_office_widget $args

    return [ad_db_select_widget -default $default  -option_list {{{} {-- please select -- }}} $db "
	select group_name, user_groups.group_id from user_groups, im_offices
	where im_offices.group_id = user_groups.group_id 
	order by group_name" $select_name]