Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/imsld/www/index.tcl	24 Nov 2005 19:29:38 -0000	1.8
+++ openacs-4/packages/imsld/www/index.tcl	25 Nov 2005 08:58:56 -0000	1.9
@@ -5,7 +5,16 @@
 set context {}
 set community_id [dotlrn_community::get_community_id]
 
-
-
-# under construction
-
+db_multirow imslds_in_class get_manifests {
+    select cr3.item_id as imsld_id,
+    coalesce(imsld.title, imsld.identifier) as imsld_title
+    from acs_rels ar, cr_items cr1, cr_items cr2, cr_items cr3, imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld 
+    where ar.object_id_one = :community_id
+    and ar.rel_type = 'imsld_community_manifest_rel'
+    and ar.object_id_two = cr1.item_id
+    and cr1.live_revision = icm.manifest_id
+    and ico.manifest_id = cr1.item_id
+    and imsld.organization_id = cr2.item_id
+    and cr2.live_revision = ico.organization_id
+    and cr3.live_revision = imsld.imsld_id
+}