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