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]