Index: openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl	12 Jun 2006 02:49:51 -0000	1.2
+++ openacs-4/packages/assessment/www/asm-admin/assessment-new.tcl	26 Sep 2006 00:22:46 -0000	1.3
@@ -10,6 +10,11 @@
     page_title:onevalue
 }
 
+permission::require_permission \
+    -object_id $assessment_id \
+    -party_id [ad_conn user_id] \
+    -privilege admin
+
 if {[info exists assessment_id]} {
 
     # Get the assessment data
@@ -24,7 +29,7 @@
 }
 set context [list [list index [_ assessment.admin]] $page_title]
 
-set types_list [list [list "[_ assessment.type_s]" 1] [list "[_ assessment.type_ea]" 2 ]]
+set types_list [list [list "[_ assessment.type_s]" survey] [list "[_ assessment.type_test]" test ]]
 
 ad_form -name assessment_type -export {assessment_id permission_p} -form {
     {type:text(radio)