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.2 -r1.3
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	17 Sep 2003 12:13:25 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	17 Sep 2003 18:39:25 -0000	1.3
@@ -24,7 +24,7 @@
 if { [string equal $package_url [subsite::get_element -element url]] } {
     set context [list $page_title]
 } else {
-    set context [list [list $package_url $instance_name] $page_title]
+    set context [list [list $package_url $instance_name] [list "${package_url}admin/" "Administration"] $page_title]
 }
 
 ad_require_permission $package_id admin
@@ -36,6 +36,7 @@
 
 set display_warning_p 0
 set counter 0
+set focus_elm {}
 db_foreach select_params {} {
     if { [empty_string_p $section_name] } {
         set section_name "Main"
@@ -44,6 +45,10 @@
         set section_name "[string toupper [string index $section_name 0]][string range $section_name 1 end]"
     }
     
+    if { $counter == 0 } {
+        set focus_elm $parameter_name
+    }
+
     set elm [list ${parameter_name}:text,optional \
                  [list label $parameter_name] \
                  [list help_text $description] \
@@ -62,6 +67,8 @@
     incr counter
 }
 
+set focus "parameters.$focus_elm"
+
 if { $counter > 0 } {
     ad_form -name parameters -cancel_url $return_url -form $form -on_request {
         foreach name [array names param] {