Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	2 Feb 2018 00:05:53 -0000	1.24
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	26 Jul 2018 15:23:16 -0000	1.25
@@ -82,15 +82,9 @@
 array set sections {}
 
 db_foreach select_params {} {
-    if { $section_name eq "" } {
-        set section_name "main"
-        set section_pretty "Main"
-    } else {
-        set section_name [string map {- {_} " " {_}} $section_name]
-        set section_pretty [string map {_ { }} $section_name]
-        set section_pretty "[string toupper [string index $section_pretty 0]][string range $section_pretty 1 end]"
-    }
-    
+    set section_name [string map {- {_} " " {_}} $section_name]
+    set section_pretty [string totitle [string map {_ { }} $section_name]]
+
     if { ![info exists sections($section_name)] } {
         set sec [list "-section" $section_name {legendtext "$section_pretty"}]
         ad_form -extend -name parameters -form [list $sec]