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

 install::xml::object_id::group node

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

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

<group id="group_id" [ type="group type" relation="relation-type" ] />

Parameters:
node (required)

Partial Call Graph (max 5 caller/called nodes):
%3 apm_attribute_value apm_attribute_value (public) apm_required_attribute_value apm_required_attribute_value (public) group::get_rel_segment group::get_rel_segment (public) install::xml::util::get_id install::xml::util::get_id (public) install::xml::object_id::group install::xml::object_id::group install::xml::object_id::group->apm_attribute_value install::xml::object_id::group->apm_required_attribute_value install::xml::object_id::group->group::get_rel_segment install::xml::object_id::group->install::xml::util::get_id

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]

    if {$group_type eq "group"} {
        set id [apm_required_attribute_value $node group-id]
    } elseif {$group_type eq "rel_segment"} {
        set id [apm_required_attribute_value $node parent-id]
    }

    set group_id [install::xml::util::get_id $id]

    if {$group_type eq "group"} {
        return $group_id
    } elseif {$group_type ne "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: