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