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