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.12 -r1.12.2.1
--- openacs-4/packages/assessment/www/asm-admin/results-users.tcl	31 Jan 2008 16:06:26 -0000	1.12
+++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl	11 Sep 2008 11:59:07 -0000	1.12.2.1
@@ -99,7 +99,7 @@
 	percent_score {
 	    label {[_ assessment.Percent_Score]}
 	    html {align right style white-space:nowrap}
-	    display_template {<if @results.result_url@ not nil><a href="@results.result_url@">@results.percent_score@</a></if><else></else>}
+        display_template {<if @results.result_url@ not nil><a href="@results.result_url@">@results.percent@<if @results.percent@ not nil>%</if></a></if><else></else>}
 	}
     } -filters {
 	assessment_id {
@@ -124,7 +124,7 @@
 
 template::multirow create subjects subject_id subject_url subject_name
 
-db_multirow -extend { result_url subject_url status delete_url } results assessment_results {} {
+db_multirow -extend { result_url subject_url status delete_url session_score assessment_score percent } 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
 
@@ -137,8 +137,19 @@
     set result_url [export_vars -base "results-session" {session_id}]
     if {$completed_datetime eq ""} {
         set status "Incomplete"
+        set session_score ""
+        set assessment_score ""
     } else {
         set status "Complete"
+        set session_score [db_string get_session_score {} -default ""]
+        set assessment_score [db_string get_max_points {}]
+        if { $assessment_score > 0 } {
+            set percent [format "%3.2f" [expr double([expr double($session_score)*100] / [expr double($assessment_score)])]]
+        } else {
+            set percent ""
+        }
+
+
     }
     set delete_url [export_vars -base session-delete {assessment_id subject_id session_id}]
 }