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:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_html_bars ad_html_bars (test acs-tcl) ad_choice_bar ad_choice_bar test_ad_html_bars->ad_choice_bar

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
[ hide source ] | [ make this the default ]
Show another procedure: