ad_generic_optionlist

ad_generic_optionlist   items   values   { default "" }

Use this to build select form fragments. Given a list of items and a list of values, will return the option tags with default highlighted as appropriate.

Source code:

    # items is a list of the items you would like the user to select from
    # values is a list of corresponding option values
    # default is the value of the item to be selected
    set count 0
    set return_string ""
    foreach value $values {
	if {  [string compare $default $value] == 0 } {
	    append return_string "<option SELECTED value=\"$value\">[lindex $items $count]\n"
	} else {
	    append return_string "<option value=\"$value\">[lindex $items $count]\n"
	}
	incr count
   }
    return $return_string