| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
Remove member(s). |
| |
3 |
3 |
|
| |
4 |
4 |
@author Lars Pind (lars@collaboraid.biz) |
| |
5 |
5 |
@creation-date 2003-06-02 |
| |
6 |
6 |
@cvs-id $Id$ |
| |
7 |
7 |
} { |
| |
8 |
8 |
user_id:naturalnum,multiple |
| |
9 |
9 |
{return_url:localurl "."} |
| |
10 |
10 |
} |
| |
11 |
11 |
|
| |
12 |
12 |
set group_id [application_group::group_id_from_package_id] |
| |
13 |
13 |
|
| |
14 |
|
if {$user_id != [ad_conn user_id]} { |
| |
15 |
14 |
permission::require_permission -object_id $group_id -privilege "admin" |
| |
16 |
|
} |
| |
17 |
15 |
|
| |
18 |
16 |
foreach id $user_id { |
| |
19 |
17 |
group::remove_member \ |
| |
20 |
18 |
-group_id $group_id \ |
| |
21 |
19 |
-user_id $user_id |
| |
22 |
20 |
} |
| |
23 |
21 |
|
| |
24 |
22 |
ad_returnredirect $return_url |
| |
25 |
23 |
|
| |
26 |
24 |
# Local variables: |
| |
27 |
25 |
# mode: tcl |
| |
28 |
26 |
# tcl-indent-level: 4 |
| |
29 |
27 |
# indent-tabs-mode: nil |
| |
30 |
28 |
# End: |
