Index: openacs-4/packages/assessment/www/asm-admin/change-timing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/change-timing.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/asm-admin/change-timing.tcl	17 Feb 2006 12:13:55 -0000	1.1
+++ openacs-4/packages/assessment/www/asm-admin/change-timing.tcl	26 Sep 2006 00:22:46 -0000	1.2
@@ -8,6 +8,12 @@
     {return_url "index"}
 }
 
+foreach id $assessment_id {
+    permission::require_permission \
+	-object_id $asessment_id \
+	-privilege admin \
+	-party_id [ad_conn user_id]
+}
 set form_format "[lc_get formbuilder_date_format] [lc_get formbuilder_time_format]"
 set user_id [ad_conn user_id]
 set context [list "[_ assessment.admin]"]