Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/index.tcl	5 Oct 2005 14:13:02 -0000	1.6
+++ openacs-4/packages/imsld/www/index.tcl	23 Nov 2005 11:06:34 -0000	1.7
@@ -5,21 +5,20 @@
 set context {}
 set community_id [dotlrn_community::get_community_id]
 
-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"
-}
+# 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
+# } {
+# }
 
 #     set next_activity get_next_activity
 #     display ismld_name
@@ -30,3 +29,23 @@
 #                             si es la primera vez, redirigir a un javascript q marque la entrada para contar el tiempo en time_to_complete
 #                            manejar completadas, faltante y nombre con listas y mejorar despliegue!
 
+
+proc dos { lista } {
+    return [concat [list $lista [list b c d]]]
+      }
+
+proc uno { lista } {
+    return [list a b d]
+      }
+
+set listin1 [list]
+set listin2 [uno $listin1]
+set listin3 [dos $listin2]
+
+set listin3 [concat a b c d e f]
+
+set superlista [list [list a b c] [list d e f]]
+
+foreach {uno} $superlista {
+    ns_log notice " - $uno - \n tristes tigres "
+}
\ No newline at end of file