category::context_bar (private)

 category::context_bar tree_id locale object_id [ ctx_id ]

Defined in packages/categories/tcl/categories-procs.tcl

Creates the standard context bar

Parameters:

tree_id
locale
object_id
ctx_id (optional)

Author:

Timo Hentschel <timo@timohentschel.de>

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    if {$ctx_id eq ""} {unset ctx_id}
    if {$object_id ne ""} {
        set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base object-map {locale object_id ctx_id}] [_ categories.cadmin]]]
    } else {
        set context_bar [list [list [export_vars -base . -no_empty {locale ctx_id}] [_ categories.cadmin]]]
    }
    lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id ctx_id}] [category_tree::get_name $tree_id $locale]]

    return $context_bar

XQL Not present:

Generic

PostgreSQL XQL file:

packages/categories/tcl/categories-procs-postgresql.xql

Oracle XQL file:

packages/categories/tcl/categories-procs-oracle.xql