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.13 -r1.14
--- openacs-4/packages/assessment/www/asm-admin/index.tcl	29 Sep 2013 13:40:40 -0000	1.13
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl	7 Aug 2017 23:48:04 -0000	1.14
@@ -14,8 +14,8 @@
 }
 set package_id [ad_conn package_id]
 permission::require_permission -object_id $package_id -privilege create
-set title "[_ assessment.Administration]"
-set context [list "[_ assessment.admin]"]
+set title [_ assessment.Administration]
+set context [list [_ assessment.admin]]
 set package_id [ad_conn package_id]
 set folder_id [as::assessment::folder_id -package_id $package_id]
 set categories_url [db_string get_category_url {}]
@@ -31,13 +31,13 @@
 set actions [list]
 set advanced_options_p [parameter::get -parameter ShowAdvancedOptions -default 1]
 if { $advanced_options_p } {
-    lappend actions "[_ assessment.New_Survey]" {assessment-form?type=survey} "[_ 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]"
+    lappend actions [_ assessment.New_Survey] {assessment-form?type=survey} [_ 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]
 }
 
-lappend actions "[_ assessment.New_Assessment]" {assessment-form?type=test} "[_ assessment.New_Assessment2]"
+lappend actions [_ assessment.New_Assessment] {assessment-form?type=test} [_ assessment.New_Assessment2]
 
 if { $sw_admin_p && $advanced_options_p } {
     lappend actions [_ assessment.set_reg_asm] "../admin/set-reg-assessment" [_ assessment.set_reg_asm]
@@ -101,3 +101,9 @@
     -bulk_actions $bulk_actions
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: