Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/imsld/www/index.tcl	23 Nov 2005 11:06:34 -0000	1.7
+++ openacs-4/packages/imsld/www/index.tcl	24 Nov 2005 19:29:38 -0000	1.8
@@ -5,47 +5,7 @@
 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
-# } {
-# }
 
-#     set next_activity get_next_activity
-#     display ismld_name
-#     display copmleted activities
-#     display next activity with finished link and with link to the activity: if it is an activity structure?
-#                             the link finished will just add an entry to the status table 
-#                             environments?
-#                             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!
 
+# under construction
 
-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