Index: openacs-4/packages/assessment/www/asm-admin/one-a.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/one-a.adp	7 Apr 2005 21:32:01 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/one-a.adp	7 Apr 2005 22:14:15 -0000	1.9
@@ -78,8 +78,12 @@
 	<td>#assessment.Extreme_Actions# </td>
 	<td><a href="assessment-delete?assessment_id=@assessment_id@">#assessment.Delete_this_assess#</a> #assessment.Removes_all_questio#<br>
 	<a href="assessment-copy?assessment_id=@assessment_id@">#assessment.Copy_this_assess#</a> #assessment.Lets_you_use_this_a#
-	<if @admin_p@ eq 1>
-	<br><a href="/admin/set-reg-assessment?assessment_id=@assessment_id@">#acs-subsite.set_reg_asm#</a>
+	<if @admin_p@ eq 1>	
+	 <if @anonymous_p@ eq t>
+	   <if @read_p@ eq 1>
+	      <br><a href="/admin/set-reg-assessment?assessment_id=@assessment_id@">#acs-subsite.set_reg_asm#</a>
+	   </if>
+         </if>
         </if>
 </td>
 </tr>
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 -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} {
Index: openacs-4/packages/assessment/www/asm-admin/one-a.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/asm-admin/one-a.xql	1 Feb 2005 22:00:10 -0000	1.1
+++ openacs-4/packages/assessment/www/asm-admin/one-a.xql	7 Apr 2005 22:14:15 -0000	1.2
@@ -13,5 +13,13 @@
     order by asm.sort_order
       </querytext>
 </fullquery>
+<fullquery name="has_privilege">
 
+      <querytext>	
+      select anonymous_p from as_assessments a where a.assessment_id=:assessment_rev_id 
+
+      </querytext>
+</fullquery>
+
+
 </queryset>