edu_department_select

one of the documented procedures in this installation of the ACS
Usage:
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] } {
	set_variables_after_query
	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
    


philg@mit.edu