ad_context_bar_ws_or_index

one of the documented procedures in this installation of the ACS
Usage:
ad_context_bar_ws_or_index   args
What it does:
Returns a Yahoo-style hierarchical navbar, starting with a link to either the workspace or /, depending on whether or not the user is logged in.
Defined in: /web/philip/packages/acs-core/navigation-procs.tcl

Source code:


    if { [ad_get_user_id] == 0 } {
	set choices [list "<a href=\"/\">[ad_system_name]</a>"] 
    } else {
	set choices [list "<a href=\"[ad_pvt_home]\">Your Workspace</a>"]
    }

# lars, Apr25-00: Took out this old scoping thing
#
#    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