Index: openacs-4/packages/anon-eval/www/asm-admin/one-a.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/asm-admin/one-a.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/anon-eval/www/asm-admin/one-a.tcl	2 Jun 2005 06:28:45 -0000	1.1
+++ openacs-4/packages/anon-eval/www/asm-admin/one-a.tcl	9 Jun 2005 05:54:37 -0000	1.2
@@ -18,6 +18,13 @@
 
 permission::require_permission -object_id $package_id -privilege create
 permission::require_permission -object_id $assessment_id -privilege admin
+set dotlrn_admin_p [dotlrn::admin_p]
+
+if { !$dotlrn_admin_p } {
+    ad_return_complaint 1 "[_ anon-eval.admin_permission_denied]"
+    ad_script_abort
+}
+
 set admin_p [acs_user::site_wide_admin_p]
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id