state_widget

one of the documented procedures in this installation of the ACS
Usage:
state_widget   db   { default "" }   { select_name "usps_abbrev" }
What it does:
Returns a state selection box
Defined in: /web/philip/packages/acs-core/widgets-procs.tcl

Source code:



    set widget_value "<select name=\"$select_name\">\n"
    if { $default == "" } {
        append widget_value "<option value=\"\" SELECTED>Choose a State</option>\n"
    }
    set selection [ns_db select $db "select * from states order by state_name"]
    while { [ns_db getrow $db $selection] } {
        set_variables_after_query
        if { $default == $usps_abbrev } {
            append widget_value "<option value=\"$usps_abbrev\" SELECTED>$state_name</option>\n" 
        } else {            
            append widget_value "<option value=\"$usps_abbrev\">$state_name</option>\n"
        }
    }
    append widget_value "</select>\n"
    return $widget_value


philg@mit.edu