ad_context_bar (public)

 ad_context_bar [ -from_node from_node ] [ -node_id node_id ] \
    [ -separator separator ] [ args... ]

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

Returns a Yahoo-style hierarchical navbar. Includes "Administration" if applicable, and the subsite if not global. 'args' can be either one or more lists, or a simple string.

-from_node (optional)
If provided do not generate links to the given node and above.
-node_id (optional)
If provided work up from this node, otherwise the current node
-separator (optional)
The text placed between each link (passed to ad_context_bar_html if provided)
an HTML fragment generated by ad_context_bar_html

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_context_bar ad_context_bar (test acs-tcl) ad_context_bar ad_context_bar test_ad_context_bar->ad_context_bar apm_header apm_header (public, deprecated) apm_header->ad_context_bar etp::get_pa etp::get_pa (private) etp::get_pa->ad_context_bar packages/acs-admin/www/apm/version-i18n-process-2.tcl packages/acs-admin/ www/apm/version-i18n-process-2.tcl packages/acs-admin/www/apm/version-i18n-process-2.tcl->ad_context_bar packages/acs-admin/www/apm/version-i18n-process.tcl packages/acs-admin/ www/apm/version-i18n-process.tcl packages/acs-admin/www/apm/version-i18n-process.tcl->ad_context_bar packages/acs-admin/www/apm/version-i18n.tcl packages/acs-admin/ www/apm/version-i18n.tcl packages/acs-admin/www/apm/version-i18n.tcl->ad_context_bar

Source code:
    if {![parameter::get -package_id [ad_conn subsite_id] -parameter ShowContextBarP -default 1]} {
        return ""

    if { $node_id eq "" } {
        set node_id [ad_conn node_id]

    # Get context info for this node. In case of "early" errors
    # (e.g. invalid characters in the URL), the result might be empty.
    set context [ad_context_node_list -from_node $from_node $node_id]

    if { [string match "admin/*" [ad_conn extra_url]] } {
        lappend context [list "[ad_conn package_url]admin/"  [_ acs-tcl.Administration]]

    if {[llength $args] == 0} {
        # Fix last element to just be literal string
        if {$context ne ""} {
            lset context end [lindex $context end 1]
    } else {
        if {![string match "\{*" $args]} {
            # args is not a list, transform it into one.
            set args [list $args]
    lappend context {*}$args
    if { [info exists separator] } {
        return [ad_context_bar_html -separator $separator $context]
    } else {
        return [ad_context_bar_html $context]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: