Index: openacs-4/packages/assessment/www/asm-admin/one-a.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	7 Apr 2005 21:29:38 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	7 Apr 2005 22:14:15 -0000	1.6
@@ -30,7 +30,10 @@
 }
 set context [list [list index [_ assessment.admin]] $assessment_data(title)]
 
+set assessment_rev_id $assessment_data(assessment_rev_id)
 
+set anonymous_p [db_string has_privilege {} -default "f"]
+set read_p [permission::permission_p -object_id $assessment_id -privilege read -party_id -1]
 set value [parameter::get_from_package_key -parameter AsmForRegisterId -package_key "acs-subsite"]
 
 if { [string eq $assessment_id $value] } {
@@ -42,8 +45,6 @@
     ad_script_abort
 }
 
-set assessment_rev_id $assessment_data(assessment_rev_id)
-
 set creation_date [util_AnsiDatetoPrettyDate $assessment_data(creation_date)]
 set creator_link [acs_community_member_url -user_id $assessment_data(creation_user)]
 if {$assessment_data(number_tries) > 0} {