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.28 -r1.29
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	11 Mar 2025 18:30:46 -0000	1.28
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	12 Mar 2025 14:34:14 -0000	1.29
@@ -88,10 +88,10 @@
 
 
 array set sections {}
-
 db_foreach select_params {} {
     set section_name [string map {- {_} " " {_}} $section_name]
     set section_pretty [string totitle [string map {_ { }} $section_name]]
+    set extra_html ""
 
     if { ![info exists sections($section_name)] } {
         set sec [list "-section" $section_name {legendtext "$section_pretty"}]
@@ -101,6 +101,7 @@
 
     if { $counter == 0 } {
         set focus_elm $parameter_name
+        set extra_html "autofocus"
     }
 
     switch -- $datatype {
@@ -119,7 +120,7 @@
     set elm [list ${parameter_name}:text($widget),optional,nospell \
                  {label {$parameter_name $help_text_suffix}} \
                  {help_text {$description}} \
-                 [list html $html]]
+                 [list html "$html $extra_html"]]
 
     set file_val [ad_parameter_from_configuration_file $parameter_name $package_key]
     if { $file_val ne "" } {