| |
2 |
2 |
|
| |
3 |
3 |
The logic for the imsld portlet. |
| |
4 |
4 |
|
| |
5 |
5 |
@author eperez@it.uc3m.es |
| |
6 |
6 |
@creation-date 2005-09-27 |
| |
7 |
7 |
@cvs-id $Id$ |
| |
8 |
8 |
|
| |
9 |
9 |
} -query { |
| |
10 |
10 |
} |
| |
11 |
11 |
|
| |
12 |
12 |
array set config $cf |
| |
13 |
13 |
|
| |
14 |
14 |
set shaded_p $config(shaded_p) |
| |
15 |
15 |
set list_of_package_ids [lsort $config(package_id)] |
| |
16 |
16 |
set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0] |
| |
17 |
17 |
|
| |
18 |
18 |
set community_id [dotlrn_community::get_community_id] |
| |
19 |
19 |
|
| |
20 |
20 |
if { ![empty_string_p $community_id] } { |
| |
21 |
21 |
# were are inside a community |
| |
22 |
|
set cr_root_folder_id [imsld::cr::ger_root_folder -community_id $community_id] |
| |
|
22 |
set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id] |
| |
23 |
23 |
|
| |
24 |
24 |
db_multirow imslds_in_class get_manifests { |
| |
25 |
25 |
select cr3.item_id as imsld_id, |
| |
26 |
26 |
coalesce(imsld.title, imsld.identifier) as imsld_title |
| |
27 |
27 |
from cr_items cr1, cr_items cr2, cr_items cr3, cr_items cr4, |
| |
28 |
28 |
imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld |
| |
29 |
29 |
where cr1.live_revision = icm.manifest_id |
| |
30 |
30 |
and cr1.parent_id = cr4.item_id |
| |
31 |
31 |
and cr4.parent_id = :cr_root_folder_id |
| |
32 |
32 |
and ico.manifest_id = cr1.item_id |
| |
33 |
33 |
and imsld.organization_id = cr2.item_id |
| |
34 |
34 |
and cr2.live_revision = ico.organization_id |
| |
35 |
35 |
and cr3.live_revision = imsld.imsld_id |
| |
36 |
36 |
} { |
| |
37 |
37 |
} |
| |
38 |
38 |
} else { |
| |
39 |
39 |
# not implemented! |
| |
40 |
40 |
} |
| |
41 |
41 |
|
| |
42 |
42 |
ad_return_template |
