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