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]