im_customer_type_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 customer types in the systemDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
return [im_category_select $db "Intranet Customer Type" $select_name $default]