make-admin.tcl

Make administrators.

Location:

/packages/acs-subsite/www/members/make-admin.tcl

Related Files

• packages/acs-subsite/www/members/make-admin.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Make administrators.
} {
    {user_id:naturalnum,multiple ""}
}

set group_id [application_group::group_id_from_package_id]

permission::require_permission -object_id $group_id -privilege "admin"

db_transaction {
    foreach one_user_id $user_id {
        # membership state stuff should only check the membership_rel at this
        # point - remember this is going to be made consistent in 5.1
        relation_add -member_state "" admin_rel $group_id $one_user_id
    }
} on_error {
    ad_return_error "Error creating the relation" "We got the following error message while trying to create this relation: <pre>$errmsg</pre>"
    ad_script_abort
}

ad_returnredirect .
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: