one of the documented procedures in this installation of the ACS
edu_term_select_widget   db   select_name   { default "" }
What it does:
Returns a selection box that lists all of the available terms that run are current or in the future.
Defined in: /web/philip/tcl/education.tcl

Source code:

    set widget_value "<select name=\"$select_name\">\n"
    if { $default == "" } {
        append widget_value "<option value=\"\" SELECTED>Choose a Term</option>\n"

    set selection [ns_db select $db "select term_name, term_id from edu_terms where end_date > sysdate or end_date is null order by end_date"]

    while { [ns_db getrow $db $selection] } {
	if { $default == $term_id } {
            append widget_value "<option value=\"$term_id\" SELECTED>$term_name</option>\n" 
	} else {            
            append widget_value "<option value=\"$term_id\">$term_name</option>\n"

    append widget_value "</select>\n"
    return $widget_value