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):
- 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 } returnXQL Not present: Generic, PostgreSQL, Oracle