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.4 -r1.6.2.5
--- openacs-4/packages/assessment/www/asm-admin/index.tcl	19 Jul 2005 16:11:43 -0000	1.6.2.4
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl	21 Jul 2005 10:42:10 -0000	1.6.2.5
@@ -33,10 +33,11 @@
     {zipfile:file {label "[_ assessment.Import_QTI_ZIP_File]"}}
 }
 
+set actions [list]
+lappend actions "[_ assessment.New_Assessment]" assessment-new "[_ assessment.New_Assessment2]"
+
 if { $sw_admin } {
-    set actions [list "[_ assessment.New_Assessment]" assessment-new "[_ assessment.New_Assessment2]" [_ assessment.set_reg_asm] "../admin/set-reg-assessment" [_ assessment.set_reg_asm]]
-} else {
-    set actions [list "[_ assessment.New_Assessment]" assessment-new "[_ assessment.New_Assessment2]"]
+    lappend actions [_ assessment.set_reg_asm] "../admin/set-reg-assessment" [_ assessment.set_reg_asm]
 }
 
 if {[ad_permission_p [acs_magic_object "security_context_root"] "admin"]} {