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 -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	10 Jan 2007 21:22:10 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	5 May 2007 13:07:35 -0000	1.13
@@ -22,7 +22,7 @@
 
 set page_title "$instance_name Parameters"
 
-if {$package_url eq [subsite::get_element -element url]} {
+if { $package_url eq [subsite::get_element -element url] } {
     set context [list [list "${package_url}admin/" "Administration"] $page_title]
 } elseif { $package_url ne "" } {
         set context [list [list $package_url $instance_name] [list "${package_url}admin/" "Administration"] $page_title]
@@ -47,22 +47,32 @@
     set section_where_clause ""
 }
 
+
+array set sections {}
+
 db_foreach select_params {} {
-    if { $section_name eq "" } {
-        set section_name "Main"
+    if { $section_name ne "" } {
+        set section_name "main"
+		set section_pretty "Main"
     } else {
-        set section_name [string map {_ { } - { }} $section_name]
-        set section_name "[string toupper [string index $section_name 0]][string range $section_name 1 end]"
+        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]"
     }
     
+	if { ![info exists sections($section_name)] } {
+		set sec [list "-section" $section_name {legendtext "$section_pretty"}]
+		ad_form -extend -name parameters -form [list $sec]
+		set sections($section_name) "$section_pretty"
+	}
+
     if { $counter == 0 } {
         set focus_elm $parameter_name
     }
 
     set elm [list ${parameter_name}:text,optional,nospell \
                  {label {$parameter_name}} \
                  {help_text {$description}} \
-                 {section {$section_name}} \
                  {html {size 50}}]
 
     set file_val [ad_parameter_from_file $parameter_name $package_key]