im_partner_status_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 partner statuses in the systemDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
return [im_category_select $db "Intranet Partner Status" $select_name $default]