ad_choice_bar (public)

 ad_choice_bar items links values [ default ]

Defined in packages/acs-tcl/tcl/navigation-procs.tcl

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

Parameters:

items (required)

links (required)

values (required)

default (optional)

See Also:

• ad_navbar

Partial Call Graph (max 5 caller/called nodes):

Testcases:

ad_html_bars

Source code:

    set count 0
    set return_list [list]

    foreach value $values {
        if { $default eq $value  } {
            lappend return_list "<strong>[lindex $items $count]</strong>"
        } else {
            lappend return_list [subst {<a href="[ns_quotehtml [lindex $links $count]]">[ns_quotehtml [lindex $items $count]]</a>}]
        }

        incr count
    }

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

XQL Not present:

Generic, PostgreSQL, Oracle