Index: openacs-4/packages/imsld/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/imsld/www/index.adp	25 Nov 2005 08:58:56 -0000	1.8
+++ openacs-4/packages/imsld/www/index.adp	4 Apr 2006 10:26:04 -0000	1.9
@@ -2,10 +2,4 @@
   <property name="title">@page_title;noquote@</property>
   <property name="context">@context;noquote@</property>
 
-<blockquote>
-<multiple name="imslds_in_class">
-<li><strong>@imslds_in_class.imsld_title@</strong><br />
-    <include src="../lib/imsld-chunk" imsld_item_id="@imslds_in_class.imsld_id@">
-<br />
-</multiple>
-</bloquote>
+<blockquote><listtemplate name="imslds"></listtemplate></blockquote>
Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/imsld/www/index.tcl	1 Feb 2006 14:05:40 -0000	1.13
+++ openacs-4/packages/imsld/www/index.tcl	4 Apr 2006 10:26:04 -0000	1.14
@@ -1,23 +1,30 @@
 ad_page_contract {
 }
 
-set page_title index
+set page_title {#imsld.units-of-learning#}
 set context {}
-set community_id [dotlrn_community::get_community_id]
 
+template::list::create \
+    -name imslds \
+    -multirow imslds \
+    -key imsld_id \
+    -elements {
+        imsld_title {
+            label "[_ imsld.IMS_LD_Name]"
+            orderby_asc {imsld_title asc}
+            orderby_desc {imsld_title desc}
+	    display_template {<a href="imsld-frameset?imsld_id=@imslds.imsld_id@">@imslds.imsld_title@</a>}
+        }
+    }
+
+set orderby [template::list::orderby_clause -orderby -name imslds]
+
+if {[string equal $orderby ""]} {
+    set orderby " order by imsld_title asc"
+}
+
+set community_id [dotlrn_community::get_community_id]
 set cr_root_folder_id [imsld::cr::get_root_folder -community_id $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 cr_items cr1, cr_items cr2, cr_items cr3, cr_items cr4,
-    imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld 
-    where cr1.live_revision = icm.manifest_id
-    and cr1.parent_id = cr4.item_id
-    and cr4.parent_id = :cr_root_folder_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
-} {
+db_multirow imslds get_manifests { *SQL* } {
 }
Index: openacs-4/packages/imsld/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/www/index.xql	1 Feb 2006 11:38:22 -0000	1.1
+++ openacs-4/packages/imsld/www/index.xql	4 Apr 2006 10:26:04 -0000	1.2
@@ -5,7 +5,7 @@
 
 	<fullquery name="get_manifests">
 		<querytext>
-    select cr3.item_id as imsld_id,
+    select imsld.imsld_id,
     coalesce(imsld.title, imsld.identifier) as imsld_title
     from cr_items cr1, cr_items cr2, cr_items cr3, cr_items cr4,
     imsld_cp_manifests icm, imsld_cp_organizations ico, imsld_imsldsi imsld