category::relation::get_widget (public)

 category::relation::get_widget -tree_id_one tree_id_one \
    -tree_id_two tree_id_two

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

Returns two select menus of the categories on each tree to be used in ad_form. The name of the elements are meta_category_one and meta_category_two.

Switches:

-tree_id_one (required)

-tree_id_two (required)

Options:

Authors:

Miguel Marin <miguelmarin@viaro.net>

Viaro Networks www.viaro.net

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

Testcases:

No testcase defined.

Source code:

    set label_one [category_tree::get_name $tree_id_one]
    set label_two [category_tree::get_name $tree_id_two]
    set element_one  "\{meta_category_one:integer(select) \{label $label_one\} \{options \{ "
    set element_two  "\{meta_category_two:integer(select) \{label $label_two\} \{options \{ "

    foreach category_one [category_tree::get_tree $tree_id_one] {
        lassign $category_one value_one label_one
        append element_one "\{$label_one $value_one\} "
    }
    foreach category_two [category_tree::get_tree $tree_id_two] {
        lassign $category_two value_two label_two
        append element_two "\{$label_two $value_two\} "
    }
    append element_one "\} \} \}"
    append element_two "\} \} \}"

    return "$element_one  $element_two"

XQL Not present:

Oracle

Generic XQL file:

packages/categories/tcl/category-relation-procs.xql

PostgreSQL XQL file:

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