bug_tracker::component_get_name (public)

 bug_tracker::component_get_name [ -package_id package_id ] \
    -component_id component_id

Defined in packages/bug-tracker/tcl/bug-tracker-procs.tcl

Switches:
-package_id (optional)
-component_id (required)

Partial Call Graph (max 5 caller/called nodes):
%3 bug_tracker::bug::get bug_tracker::bug::get (public) bug_tracker::component_get_name bug_tracker::component_get_name bug_tracker::bug::get->bug_tracker::component_get_name bug_tracker::bug::get_multirow bug_tracker::bug::get_multirow (public) bug_tracker::bug::get_multirow->bug_tracker::component_get_name packages/bug-tracker/www/admin/distro-component-add.tcl packages/bug-tracker/ www/admin/distro-component-add.tcl packages/bug-tracker/www/admin/distro-component-add.tcl->bug_tracker::component_get_name packages/bug-tracker/www/map-patch-to-bugs.tcl packages/bug-tracker/ www/map-patch-to-bugs.tcl packages/bug-tracker/www/map-patch-to-bugs.tcl->bug_tracker::component_get_name _ _ (public) bug_tracker::component_get_name->_ bug_tracker::components_get_options bug_tracker::components_get_options (public) bug_tracker::component_get_name->bug_tracker::components_get_options

Testcases:
No testcase defined.
Source code:
    if { $component_id eq "" } {
        return {}
    }
    foreach elm [components_get_options -package_id $package_id] {
        set id [lindex $elm 1]
        if {$id eq $component_id} {
            return [lindex $elm 0]
        }
    }
    error [_ bug-tracker.Component_id_not_found]
Generic XQL file:
packages/bug-tracker/tcl/bug-tracker-procs.xql

PostgreSQL XQL file:
packages/bug-tracker/tcl/bug-tracker-procs-postgresql.xql

Oracle XQL file:
packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: