Index: openacs-4/packages/assessment/www/sessions.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/sessions.adp	21 Sep 2004 08:55:00 -0000	1.1
+++ openacs-4/packages/assessment/www/sessions.adp	22 Sep 2004 19:36:32 -0000	1.2
@@ -2,12 +2,6 @@
 <property name="title">Assessment</property>
 <property name="context">@context;noquote@</property>
 
-<multiple name="sessions">
-	<ul>
-		<li>
-			<a href="session?session_id=@sessions.session_id@">@sessions.first_names@ @sessions.last_name@</a>
-		</li>
-	</ul>
-</multiple>
+<listtemplate name="sessions"></listtemplate>
 
 </master>
Index: openacs-4/packages/assessment/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/sessions.tcl	21 Sep 2004 08:55:00 -0000	1.1
+++ openacs-4/packages/assessment/www/sessions.tcl	22 Sep 2004 19:36:32 -0000	1.2
@@ -12,8 +12,34 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow sessions sessions_of_assessment {} {}
+template::list::create \
+    -name sessions \
+    -multirow sessions \
+    -key sessions_id \
+    -elements {
+        subject_name {
+	    label {Subject Name}
+            link_url_eval {[acs_community_member_url -user_id $subject_id]}
 
+        }
+	assessment_name {
+	    label {Assessment}
+	    link_url_eval {[export_vars -base "assessment" {session_id}]}
+	}
+	completed_datetime {
+	    label {Finnish Time}
+	    link_url_eval {[export_vars -base "session" {session_id}]}
+	}
+    } \
+    -main_class {
+        narrow
+    }
+
+db_multirow -extend { item_url } sessions sessions_of_assessment {
+} {
+    set item_url [export_vars -base "session" {session_id}]
+}
+
 set admin_p [ad_permission_p $package_id admin]
 
 ad_return_template
Index: openacs-4/packages/assessment/www/sessions.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/sessions.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/sessions.xql	21 Sep 2004 11:52:50 -0000	1.2
+++ openacs-4/packages/assessment/www/sessions.xql	22 Sep 2004 19:36:32 -0000	1.3
@@ -5,8 +5,8 @@
 
 	<fullquery name="sessions_of_assessment">
 		<querytext>
-			SELECT as_sessionsx.session_id, as_sessionsx.name, as_sessionsx.title, persons.first_names, persons.last_name
-			FROM as_sessionsx INNER JOIN persons ON as_sessionsx.subject_id = persons.person_id
+			SELECT as_sessionsx.session_id, as_sessionsx.name, as_sessionsx.title, as_sessionsx.completed_datetime, as_sessionsx.subject_id, persons.first_names || ' ' || persons.last_name AS subject_name, as_assessmentsx.title AS assessment_name
+			FROM (as_sessionsx INNER JOIN as_assessments ON as_sessionsx.assessment_id = as_assessments.assessment_id) INNER JOIN persons ON as_sessionsx.subject_id = persons.person_id
 			WHERE as_sessionsx.assessment_id=:assessment_id
 		</querytext>
 	</fullquery>