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 -N -r1.24.2.8 -r1.24.2.9
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	3 Aug 2005 05:51:16 -0000	1.24.2.8
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	20 Sep 2005 15:55:24 -0000	1.24.2.9
@@ -20,7 +20,7 @@
     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} {
+    if {![acs_user::site_wide_admin_p -user_id $user_id]} {
 	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 {}]