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.25.2.4 -r1.25.2.5
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	17 Oct 2020 16:41:27 -0000	1.25.2.4
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	5 Feb 2023 19:27:02 -0000	1.25.2.5
@@ -125,9 +125,21 @@
     incr counter
 }
 
-set focus "parameters.$focus_elm"
+#set focus "parameters.$focus_elm"
+set sections_header ""
 
 if { $counter > 0 } {
+    #
+    # "Main" is always the first section
+    #
+    set section_list "<a href='#main'>[ns_quotehtml $sections(main)]</a>"
+    foreach section_name [lsort [array names sections]] {
+        if {$section_name ne "main"} {
+            lappend section_list "<a href='#$section_name'>[ns_quotehtml $sections($section_name)]</a>"
+        }
+    }
+    set sections_header "<p>Sections: <small>[join $section_list { - } ]</small></p>"
+
     # Close last section
     ad_form -extend -name parameters -form [list "-section"]
     ad_form -extend -name parameters -on_request {