| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
|
| |
3 |
3 |
Deletes the group matching the specified group_id. |
| |
4 |
4 |
|
| |
5 |
5 |
@author Nick Carroll (ncarroll@ee.usyd.edu.au) |
| |
6 |
6 |
@creation-date 2005-01-02 |
| |
7 |
7 |
@version $Id$ |
| |
8 |
8 |
|
| |
9 |
9 |
} { |
| |
10 |
10 |
group_id:integer,notnull |
| |
11 |
11 |
} |
| |
12 |
12 |
|
| |
|
13 |
set context [list [list groups "[_ dotfolio.groups]"] "[_ dotfolio.delete_group]"] |
| |
|
14 |
|
| |
|
15 |
ad_form \ |
| |
|
16 |
-name del_group \ |
| |
|
17 |
-cancel_url "groups" \ |
| |
|
18 |
-export { group_id } \ |
| |
|
19 |
-form { |
| |
|
20 |
{group_members:text(inform) {label "[_ dotfolio.group_members]"}} |
| |
|
21 |
{prompt:text(inform) {label "[_ dotfolio.confirm]"} {value "[_ dotfolio.continue_with_delete_group]"}} |
| |
|
22 |
} \ |
| |
|
23 |
-on_request { |
| |
|
24 |
set group_members [join [db_list get_member_names {}] "<br />"] |
| |
|
25 |
} \ |
| |
|
26 |
-on_submit { |
| |
13 |
27 |
db_transaction { |
| |
14 |
28 |
# Delete entry from dotfolio_group_adviser_map. |
| |
15 |
29 |
db_dml delete_group {} |
| |
16 |
30 |
|
| |
17 |
31 |
# Delete group. |
| |
18 |
32 |
group::delete $group_id |
| |
19 |
33 |
} |
| |
20 |
|
|
| |
|
34 |
} \ |
| |
|
35 |
-after_submit { |
| |
21 |
36 |
ad_returnredirect "groups" |
| |
|
37 |
} |
