install::xml::action::add-subsite-member (public)

 install::xml::action::add-subsite-member node

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

Add a member to a subsites application group.

Parameters:
node

Partial Call Graph (max 5 caller/called nodes):
%3 apm_attribute_value apm_attribute_value (public) group::add_member group::add_member (public) install::xml::object_id::application-group install::xml::object_id::application-group (public) install::xml::object_id::object install::xml::object_id::object (public) xml_node_get_children xml_node_get_children (public) install::xml::action::add-subsite-member install::xml::action::add-subsite-member install::xml::action::add-subsite-member->apm_attribute_value install::xml::action::add-subsite-member->group::add_member install::xml::action::add-subsite-member->install::xml::object_id::application-group install::xml::action::add-subsite-member->install::xml::object_id::object install::xml::action::add-subsite-member->xml_node_get_children

Testcases:
No testcase defined.
Source code:
    set member_state [apm_attribute_value -default "" $node member-state]

    set group_id [::install::xml::object_id::application-group $node]

    set user_nodes [xml_node_get_children [lindex $node 0]]

    foreach node $user_nodes {
        if {[xml_node_get_name $node] ne "user"} {
            error "Unknown xml element \"[xml_node_get_name $node]\""
        }

        set user_id [::install::xml::object_id::object $node]

        group::add_member -user_id $user_id  -group_id $group_id  -member_state $member_state  -no_perm_check
    }

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