one of the documented procedures in this installation of the ACS
edu_department_select   db   { default_dept_id "" }   { select_name "department_id" }   { include_null_entry_p "t" }
What it does:
This returns a string that is a select box listing all of the departments.
Defined in: /web/philip/tcl/education.tcl

Source code:

    set selection [ns_db select $db "select department_name, department_id from edu_departments order by department_name, department_number"]
    set html "<select name=\"$select_name\">"

    if {[string compare $include_null_entry_p t]} {
	append html "<option value=\"\"> ---"

    while { [ns_db getrow $db $selection] } {
	if {[string compare $department_id $default_dept_id] == 0} {
	    append html "<option value=$department_id selected>$department_name \n"
	} else {
	    append html "<option value=$department_id>$department_name \n"

    append html "</select>"
    return $html