| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
Displays single dotLRN community page for admin |
| |
3 |
3 |
|
| |
4 |
4 |
@author Ben Adida (ben@openforce.net) |
| |
5 |
5 |
@author yon (yon@openforce.net) |
| |
6 |
6 |
@creation-date 2001-11-27 |
| |
7 |
7 |
@version $Id$ |
| |
8 |
8 |
} -query { |
| |
9 |
9 |
} -properties { |
| |
10 |
|
dotlrn_admin_p:onevalue |
| |
11 |
|
dotlrn_admin_url:onevalue |
| |
12 |
10 |
community_id:onevalue |
| |
13 |
11 |
community_type:onevalue |
| |
14 |
12 |
pretty_name:onevalue |
| |
15 |
13 |
description:onevalue |
| |
16 |
|
join_policy:onevalue |
| |
17 |
|
n_subgroups:onevalue |
| |
|
14 |
portal_template_id:onevalue |
| |
|
15 |
users:multirow |
| |
18 |
16 |
} |
| |
19 |
17 |
|
| |
20 |
18 |
set portal_id "" |
| |
|
19 |
|
| |
21 |
20 |
set community_id [dotlrn_community::get_community_id] |
| |
22 |
21 |
|
| |
|
22 |
# Permissions |
| |
23 |
23 |
dotlrn::require_user_admin_community $community_id |
| |
24 |
24 |
|
| |
25 |
|
set dotlrn_admin_p [dotlrn::admin_p] |
| |
26 |
|
set dotlrn_admin_url "[dotlrn::get_url]/admin" |
| |
27 |
|
|
| |
28 |
25 |
db_1row select_community_info {} |
| |
29 |
26 |
|
| |
30 |
|
set n_subgroups [db_string select_subgroups_count { |
| |
31 |
|
select 1 from dual where 1 = 0 |
| |
32 |
|
} -default 0] |
| |
|
27 |
# render the admin page |
| |
|
28 |
set rendered_page [dotlrn::render_page -render_style all_in_one $admin_portal_id] |
| |
33 |
29 |
|
| |
34 |
30 |
set context_bar {Admin} |
| |
35 |
31 |
|
| |
36 |
32 |
ad_return_template |
