ad_context_bar_ws

one of the documented procedures in this installation of the ACS
Usage:
ad_context_bar_ws   args
What it does:
Returns a Yahoo-style hierarchical navbar, starting with a link to workspace.
Defined in: /web/philip/packages/acs-core/navigation-procs.tcl

Source code:


    set choices [list "<a href=\"[ad_pvt_home]\">Your Workspace</a>"]

#    if { [ad_conn scope on_which_table] != "." } {
#	if { [llength $args] == 0 } {
#	    lappend choices [ad_conn scope name]
#	} else {
#	    lappend choices "<a href=\"[ad_conn scope url]/\">[ad_conn scope name]</a>"
#	}
#    }

    set index 0
    foreach arg $args {
	incr index
	if { $index == [llength $args] } {
	    lappend choices $arg
	} else {
	    lappend choices "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
	}
    }
    return [join $choices " : "]


philg@mit.edu