install::xml::util::get_id (public)

 install::xml::util::get_id id

Defined in packages/acs-tcl/tcl/install-procs.tcl

Returns an id from the global ids variable if it exists and attempts to find an acs_magic_object if not.

Parameters:
id

Partial Call Graph (max 5 caller/called nodes):
%3 install::xml::action::application-link install::xml::action::application-link (private) install::xml::util::get_id install::xml::util::get_id install::xml::action::application-link->install::xml::util::get_id install::xml::action::ats-page install::xml::action::ats-page (public) install::xml::action::ats-page->install::xml::util::get_id install::xml::action::call-tcl-proc install::xml::action::call-tcl-proc (private) install::xml::action::call-tcl-proc->install::xml::util::get_id install::xml::action::create-package install::xml::action::create-package (public) install::xml::action::create-package->install::xml::util::get_id install::xml::action::instantiate-object install::xml::action::instantiate-object (private) install::xml::action::instantiate-object->install::xml::util::get_id acs_magic_object acs_magic_object (public) install::xml::util::get_id->acs_magic_object

Testcases:
No testcase defined.
Source code:
    variable ::install::xml::ids

    if {[catch {
        if {[string is integer $id]} {
            set result $id
        } elseif {[info exists ids($id)]} {
            set result $ids($id)
        } else {
            set result [acs_magic_object $id]
        }
    } err]} {
        error "$id is not an integer, is not defined in this install.xml, and is not an acs_magic_object"
    }

    return $result
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: