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 -N -r1.2 -r1.3
--- openacs-4/packages/assessment/www/asm-admin/results-users.tcl	21 Feb 2005 14:32:56 -0000	1.2
+++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl	13 Apr 2005 11:11:05 -0000	1.3
@@ -32,7 +32,7 @@
     -elements {
 	session_id {
 	    label {[_ assessment.Session]}
-	    link_url_eval {[export_vars -base "results-session" {session_id}]}
+	    display_template {<if @results.result_url@ not nil><a href="@results.result_url@">@results.session_id@</a></if><else></else>}
 	}
 	subject_name {
 	    label {[_ assessment.Subject_Name]}
@@ -44,21 +44,25 @@
 	}
 	percent_score {
 	    label {[_ assessment.Percent_Score]}
-	    link_url_eval {[export_vars -base "results-session" {session_id}]}
 	    html {align right nowrap}
+	    display_template {<if @results.result_url@ not nil><a href="@results.result_url@">@results.percent_score@</a></if><else></else>}
 	}
     } -main_class {
 	narrow
     } 
 
 
-db_multirow -extend { subject_url } results assessment_results {
+db_multirow -extend { result_url subject_url } results assessment_results {
 } {
     if {$assessment_data(anonymous_p) == "t" && $subject_id != $user_id} {
-	set subject_name "[_ assessment.anonymous_name]"
+
+	# You should be able to see who answered this assessment but not his answer.
+	# set subject_name "[_ assessment.anonymous_name]"
 	set subject_url ""
+	set result_url ""
     } else {
 	set subject_url [acs_community_member_url -user_id $subject_id]
+	set result_url [export_vars -base "results-session" {session_id}]
     }
 }