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