ad_context_bar_ws

ad_context_bar_ws   args

Returns a Yahoo-style hierarchical navbar, starting with a link to workspace.

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 " : "]