ticket_context contextWhat it does:
given a list this generates the ticket context barDefined in: /web/philip/tcl/ticket-defs.tcl
Source code:
set context_last [expr [llength $context] - 1] set context [lreplace $context $context_last end [lindex [lindex $context $context_last] 1]] return [eval ad_context_bar_ws_or_index $context]