Index: openacs-4/packages/assessment/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/index.adp	21 Sep 2004 17:37:31 -0000	1.7
+++ openacs-4/packages/assessment/www/index.adp	23 Sep 2004 18:48:59 -0000	1.8
@@ -3,12 +3,6 @@
 <property name="context">@context;noquote@</property>
 <if @admin_p@ eq "1"><p style="text-align: right;"><a href="admin/"><img src="graphics/admin.gif" border="0" alt="Administer Assessments"></a></if>
 
-<multiple name="assessment_info">
-	<ul>
-		<li>
-			<a href="assessment?assessment_id=@assessment_info.assessment_id@" title="@assessment_info.description@">@assessment_info.title@</a> <a href="sessions?assessment_id=@assessment_info.assessment_id@" title="@assessment_info.description@">sessions</a>
-		</li>
-	</ul>
-</multiple>
+<listtemplate name="assessments"></listtemplate>
 
 </master>
Index: openacs-4/packages/assessment/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/index.tcl	19 Sep 2004 22:26:06 -0000	1.2
+++ openacs-4/packages/assessment/www/index.tcl	23 Sep 2004 18:48:59 -0000	1.3
@@ -11,8 +11,30 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow assessment_info asssessment_id_name_definition {} {}
+template::list::create \
+    -name assessments \
+    -multirow assessments \
+    -key assessment_id \
+    -elements {
+        title {
+            label {Assessment}
+            link_url_eval {[export_vars -base "assessment" {assessment_id}]}
+            link_html { title {@assessments.description@} }
 
+        }
+        session {
+            label {Sessions}
+            link_url_eval {[export_vars -base "sessions" {assessment_id}]}
+        }
+    } \
+    -main_class {
+        narrow
+    }
+
+db_multirow -extend { session } assessments asssessment_id_name_definition {} {
+    set session {Sessions}
+}
+
 set admin_p [ad_permission_p $package_id admin]
 
 ad_return_template