Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	1 Feb 2005 22:13:44 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	4 Feb 2005 18:08:41 -0000	1.11
@@ -19,6 +19,10 @@
     
 } {
     set package_id [ad_conn package_id]
+    set user_id [ad_conn user_id]
+    set permission ""
+    if {[permission::permission_p -object_id $package_id -party_id $user_id -privilege admin] == 0} {
+	set permission "and ci.item_id in (select object_id from acs_permissions where grantee_id=:user_id and privilege='admin')"}
     set assessment_list [list [list "[_ assessment.all]" "all"]]
     set assessments [db_list_of_lists assessment {}]
     foreach  assessment $assessments {