ad_choice_bar

one of the documented procedures in this installation of the ACS
Usage:
ad_choice_bar   items   links   values   { default "" }
What it does:
Displays a list of choices (Yahoo style), with the currently selected one highlighted.
Defined in: /web/philip/packages/acs-core/navigation-procs.tcl

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 ""
    }
    


philg@mit.edu