Index: openacs-4/packages/imsld-portlet/www/imsld-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld-portlet/www/imsld-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/imsld-portlet/www/imsld-portlet.tcl	27 Sep 2005 11:22:47 -0000	1.1
+++ openacs-4/packages/imsld-portlet/www/imsld-portlet.tcl	5 Oct 2005 14:14:03 -0000	1.2
@@ -15,4 +15,27 @@
 set list_of_package_ids [lsort $config(package_id)]
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
+set community_id [dotlrn_community::get_community_id]
+
+if { ![empty_string_p $community_id] } {
+    # were are inside a community 
+    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
+    } {
+        ns_log notice "vamos!!!!! \n"
+    }
+} else {
+    # not implemented!
+}
+
 ad_return_template