im_selection_to_select_box db sql select_name { default " " }What it does:
Expects selection to have a column named id and another named name. Runs through the selection and return a select bar named select_name, defaulted to $defaultDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
return "
<select name=\"$select_name\">
<option value=\"\"> -- Please select --
[ad_db_optionlist $db $sql $default]
</select>
"