wp_context_bar

one of the documented procedures in this installation of the ACS
Usage:
wp_context_bar   argv
What it does:
Returns a Yahoo-style hierarchical navbar, starting with a link to workspace.
Defined in: /web/philip/tcl/wp-defs.tcl

Source code:


    if { [ad_get_user_id] == 0 } {
	set choices [list]
    } else {
	set choices [list "<a href=\"[ad_pvt_home]\">Your Workspace</a>"]
    }
    set index 0
    foreach arg $argv {
	incr index
	if { $arg == "" } {
	    continue
	}
	if { $index == [llength $argv] } {
	    lappend choices $arg
	} else {
	    lappend choices "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
	}
    }
    return [join $choices " : "]


philg@mit.edu