Index: openacs-4/packages/assessment/www/asm-admin/approve-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/approve-check.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/asm-admin/approve-check.tcl	4 Feb 2005 21:14:22 -0000	1.1
+++ openacs-4/packages/assessment/www/asm-admin/approve-check.tcl	26 Sep 2006 00:22:46 -0000	1.2
@@ -11,6 +11,11 @@
 
   }
 
+permission::require_permission \
+    -object_id [ad_conn package_id] \
+    -party_id [ad_conn user_id] \
+    -privilege "admin"
+
 set count [llength $action_log_id]
 
 for { set i 0} { $i< $count } {incr i} {