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] } {
        set_variables_after_query
	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