| |
2 |
2 |
|
| |
3 |
3 |
ad_page_contract { |
| |
4 |
4 |
|
| |
5 |
5 |
Course Delivery Table of Content |
| |
6 |
6 |
|
| |
7 |
7 |
@author Ernie Ghiglione (ErnieG@mm.st) |
| |
8 |
8 |
@creation-date 2004-04-09 |
| |
9 |
9 |
@arch-tag 553390f0-450e-48db-99f0-c5dcb17978b8 |
| |
10 |
10 |
@cvs-id $Id$ |
| |
11 |
11 |
} { |
| |
12 |
12 |
man_id:integer,notnull |
| |
13 |
13 |
ims_id:integer,notnull,optional |
| |
14 |
14 |
menu_off:integer,notnull,optional |
| |
15 |
15 |
track_id:integer,notnull |
| |
16 |
16 |
} -properties { |
| |
17 |
17 |
} -validate { |
| |
18 |
18 |
} -errors { |
| |
19 |
19 |
} |
| |
20 |
20 |
|
| |
21 |
21 |
set debuglevel [ad_get_client_property lorsm debuglevel] |
| |
22 |
|
|
| |
23 |
|
set org_id [db_string get_org_id { } ] |
| |
24 |
|
set items_list [lorsm::get_items_indent -org_id $org_id] |
| |
|
22 |
set items_list [list] |
| |
|
23 |
foreach org_id [db_list get_org_id { } ] { |
| |
|
24 |
foreach item [lorsm::get_items_indent -org_id $org_id] {lappend items_list $item} |
| |
|
25 |
} |
| |
25 |
26 |
template::util::list_of_lists_to_array $items_list items_array |
| |
26 |
27 |
set fs_package_id [db_string get_fs_package_id { } -default "" ] |
| |
27 |
28 |
|
| |
28 |
29 |
set community_id [dotlrn_community::get_community_id] |
| |
29 |
30 |
set counter 1 |
| |
30 |
31 |
set user_id [ad_conn user_id] |
| |
31 |
32 |
if { ![info exists menu_off] } { |
| |
32 |
33 |
set menu_off 0 |
| |
33 |
34 |
} |
| |
34 |
35 |
|
| |
35 |
36 |
proc generate_tree_menu { items index rlevel } { |
| |
36 |
37 |
# This function is recursive |
| |
37 |
38 |
|
| |
38 |
39 |
set adp_level [template::adp_level] |
| |
39 |
40 |
upvar TREE_HASH TREE_HASH |
| |
40 |
41 |
upvar index localindex |
| |
41 |
42 |
upvar #$adp_level counter counter |
| |
42 |
43 |
upvar #$adp_level ims_id ims_id |
| |
43 |
44 |
set itemcount [llength $items] |
| |
44 |
45 |
|
