ad_choice_bar

ad_choice_bar   items   links   values   { default "" }

Displays a list of choices (Yahoo style), with the currently selected one highlighted.

Source code:

    set count 0
    set return_list [list]

    foreach value $values {
	if { [string compare $default $value] == 0 } {
	        lappend return_list "<strong>[lindex $items $count]</strong>"
	} else {
	        lappend return_list "<a href=\"[lindex $links $count]\">[lindex $items $count]</a>"
	}

	incr count
    }

    if { [llength $return_list] > 0 } {
        return "\[[join $return_list " | "]\]"
    } else {
	return ""
    }