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