Index: openacs-4/packages/assessment/www/asm-admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.tcl,v
diff -u -r1.6.2.8 -r1.6.2.9
--- openacs-4/packages/assessment/www/asm-admin/index.tcl	21 Feb 2006 18:09:34 -0000	1.6.2.8
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl	25 Feb 2006 15:46:24 -0000	1.6.2.9
@@ -35,13 +35,17 @@
 }
 
 set actions [list]
-lappend actions "[_ assessment.New_Survey]" {assessment-form?type=1} "[_ assessment.New_Survey]" \
-		"[_ assessment.New_Review_Assessment]" {assessment-form?type=3} "[_ assessment.New_Review_Assessment]" \
-		"[_ assessment.New_Partial_Assessment]" {assessment-form?type=4} "[_ assessment.New_Partial_Assessment]" \
-		"[_ assessment.New_Quick_Assessment]" {assessment-form?type=5} "[_ assessment.New_Quick_Assessment]" \
-		"[_ assessment.New_Assessment]" {assessment-form?type=2} "[_ assessment.New_Assessment2]"
+set advanced_options_p [parameter::get -parameter ShowAdvancedOptions -default 1]
+if { $advanced_options_p } {
+    lappend actions "[_ assessment.New_Survey]" {assessment-form?type=1} "[_ assessment.New_Survey]" \
+	"[_ assessment.New_Review_Assessment]" {assessment-form?type=3} "[_ assessment.New_Review_Assessment]" \
+	"[_ assessment.New_Partial_Assessment]" {assessment-form?type=4} "[_ assessment.New_Partial_Assessment]" \
+	"[_ assessment.New_Quick_Assessment]" {assessment-form?type=5} "[_ assessment.New_Quick_Assessment]"
+}
 
-if { $sw_admin } {
+lappend actions "[_ assessment.New_Assessment]" {assessment-form?type=2} "[_ assessment.New_Assessment2]"
+
+if { $sw_admin && $advanced_options_p } {
     lappend actions [_ assessment.set_reg_asm] "../admin/set-reg-assessment" [_ assessment.set_reg_asm]
 }