Index: openacs-4/packages/assessment/www/asm-admin/results-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-users.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/asm-admin/results-users.tcl	26 Sep 2006 00:22:46 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl	8 Dec 2006 03:23:08 -0000	1.8
@@ -68,13 +68,15 @@
     -key sessions_id \
     -elements {
 	session_id {
-	    label {[_ assessment.Session]}
+	    label {[_ assessment.View_Results]}
 	    display_template {<if @results.result_url@ not nil><a href="@results.result_url@">View</a></if><else></else>}
 	}
 	subject_name {
-	    label {[_ assessment.Subject_Name]}
-	    display_template {@results.subject_name@}
+	    label {[_ assessment.Name]}
 	}
+        status {
+            label {#assessment.Status#}
+        }
 	completed_datetime {
 	    label {[_ assessment.Finish_Time]}
 	    html {nowrap}
@@ -84,14 +86,18 @@
 	    html {align right nowrap}
 	    display_template {<if @results.result_url@ not nil><a href="@results.result_url@">@results.percent_score@</a></if><else></else>}
 	}
+        delete {
+            label {[_ assessment.Delete_Attempt]}
+            display_template {<a href=\"@results.delete_url@">[_ assessment.Delete_Attempts]</a>}
+        }
     } -main_class {
 	narrow
     } 
 
 
 template::multirow create subjects subject_id subject_url subject_name
 
-db_multirow -extend { result_url subject_url } results assessment_results {
+db_multirow -extend { result_url subject_url status delete_url } results assessment_results {
 } {
     # to display list of users who answered the assessment if anonymous
     template::multirow append subjects $subject_id [acs_community_member_url -user_id $subject_id] $subject_name
@@ -103,6 +109,12 @@
 	set subject_url [acs_community_member_url -user_id $subject_id]
     }
     set result_url [export_vars -base "results-session" {session_id}]
+    if {$completed_datetime eq ""} {
+        set status "Incomplete"
+    } else {
+        set status "Complete"
+    }
+    set delete_url [export_vars -base session-delete {assessment_id subject_id session_id}]
 }
 
 template::multirow sort subjects subject_name