install::xml::object_id::application-group (public)

 install::xml::object_id::application-group node

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

Returns an object_id for an application group or relational segment of a given package. The node name is ignored so any node which provides the correct attributes may be used.

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 install::xml::action::add-subsite-member install::xml::action::add-subsite-member (public) install::xml::object_id::application-group install::xml::object_id::application-group install::xml::action::add-subsite-member->install::xml::object_id::application-group apm_attribute_value apm_attribute_value (public) install::xml::object_id::application-group->apm_attribute_value application_group::group_id_from_package_id application_group::group_id_from_package_id (public) install::xml::object_id::application-group->application_group::group_id_from_package_id group::get_rel_segment group::get_rel_segment (public) install::xml::object_id::application-group->group::get_rel_segment install::xml::object_id::package install::xml::object_id::package (public) install::xml::object_id::application-group->install::xml::object_id::package

Testcases:
No testcase defined.
Source code:
    set group_type [apm_attribute_value -default "group" $node type]
    set relation_type [apm_attribute_value -default "membership_rel" $node relation]

    set package_id [::install::xml::object_id::package $node]

    set group_id [application_group::group_id_from_package_id  -package_id $package_id]

    if {$group_type eq "group"} {
        return $group_id
    } elseif {$group_type eq "rel_segment"} {
        return [group::get_rel_segment -group_id $group_id -type $relation_type]
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: