Index: openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl	15 Apr 2005 18:17:29 -0000	1.1
+++ openacs-4/packages/assessment/www/asm-admin/assessment-history.tcl	26 Sep 2006 00:22:46 -0000	1.2
@@ -11,6 +11,11 @@
     page_title:onevalue
 }
 
+permission::require_permission \
+    -object_id $assessment_id \
+    -party_id [ad_conn user_id] \
+    -privilege admin
+
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id