member-remove.tcl

Remove member(s).

Location:

/packages/acs-subsite/www/members/member-remove.tcl

Author:

Lars Pind <lars@collaboraid.biz>

Created:

2003-06-02

CVS ID:

$Id: member-remove.tcl,v 1.8 2018/01/05 22:40:56 gustafn Exp $

Related Files

• packages/acs-subsite/www/members/member-remove.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Remove member(s).
    
    @author Lars Pind (lars@collaboraid.biz)
    @creation-date 2003-06-02
    @cvs-id $Id: member-remove.tcl,v 1.8 2018/01/05 22:40:56 gustafn Exp $
} {
    user_id:naturalnum,multiple
    {return_url:localurl "."}
}

set group_id [application_group::group_id_from_package_id]

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

foreach id $user_id {
    group::remove_member \
        -group_id $group_id \
        -user_id $user_id
}

ad_returnredirect $return_url
ad_script_abort

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