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

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

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

Add a member to a subsite's admins group.

Parameters:
node (required)

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::object install::xml::object_id::object (public) install::xml::object_id::package install::xml::object_id::package (public) xml_node_get_children xml_node_get_children (public) install::xml::action::add-subsite-admin install::xml::action::add-subsite-admin install::xml::action::add-subsite-admin->apm_attribute_value install::xml::action::add-subsite-admin->group::add_member install::xml::action::add-subsite-admin->install::xml::object_id::object install::xml::action::add-subsite-admin->install::xml::object_id::package install::xml::action::add-subsite-admin->xml_node_get_children

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

    # group id is registered using the package id
    set package_id [install::xml::object_id::package $node]
    set group_id [subsite::get_admin_group -package_id $package_id]

    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: