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

Partial Call Graph (max 5 caller/called nodes):

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