Index: openacs-4/packages/assessment/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/assessment/www/index.tcl	21 Feb 2005 14:32:56 -0000	1.12
+++ openacs-4/packages/assessment/www/index.tcl	18 Apr 2005 12:30:27 -0000	1.13
@@ -16,38 +16,56 @@
 set folder_id [as::assessment::folder_id -package_id $package_id]
 set user_id [ad_conn user_id]
 
-# create a list with all assessments and their sessions
+# create a list with all open assessments
 template::list::create \
     -name assessments \
     -multirow assessments \
     -key assessment_id \
     -elements {
         title {
-            label {Assessment}
-            display_template {<if @assessments.assessment_url@ not nil><a href="@assessments.assessment_url@">@assessments.title@</a></if><else>@assessments.title@</else>}
+            label "[_ assessment.open_assessments]"
+            display_template {<a href="@assessments.assessment_url@">@assessments.title@</a>}
         }
-        session {
-            label {[_ assessment.Sessions]}
-            link_url_eval {[export_vars -base "sessions" {assessment_id}]}
-        }
     } -main_class {
         narrow
     }
 
-# get the information of all assessments store in the database
-db_multirow -extend { session assessment_url } assessments asssessment_id_name_definition {} {
-    set session {Sessions}
+# get the information of all open assessments
+template::multirow create assessments assessment_id title description assessment_url
+db_foreach open_asssessments {} {
     if {([empty_string_p $start_time] || $start_time <= $cur_time) && ([empty_string_p $end_time] || $end_time >= $cur_time)} {
 	if {[empty_string_p $password]} {
 	    set assessment_url [export_vars -base "assessment" {assessment_id}]
 	} else {
 	    set assessment_url [export_vars -base "assessment-password" {assessment_id}]
 	}
-    } else {
-	set assessment_url ""
+	template::multirow append assessments $assessment_id $title $description $assessment_url
     }
 }
 
+# create a list with all answered assessments and their sessions
+template::list::create \
+    -name sessions \
+    -multirow sessions \
+    -key assessment_id \
+    -elements {
+        title {
+            label "[_ assessment.Assessments]"
+            display_template {@sessions.title@}
+        }
+        session {
+            label {[_ assessment.Sessions]}
+            link_url_eval {[export_vars -base "sessions" {assessment_id}]}
+        }
+    } -main_class {
+        narrow
+    }
+
+# get the information of all assessments store in the database
+db_multirow -extend { session } sessions answered_asssessments {} {
+    set session {Sessions}
+}
+
 set admin_p [ad_permission_p $package_id create]
 
 ad_return_template