Index: openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	11 Sep 2003 16:12:30 -0000	1.1
+++ openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	12 Sep 2003 12:26:39 -0000	1.2
@@ -30,13 +30,16 @@
 set context [list [list "." "Authentication"] [list $authority_url "$authority(pretty_name)"] $page_title]
 
 # Get the parameters that can be configured
-array set parameters [acs_sc::invoke \
-                      -impl_id $impl_id \
-                      -operation "GetParameters"]
+array set parameters [auth::driver::get_parameters -impl_id $impl_id]
 
 set has_parameters_p [expr [llength [array names parameters]] > 0]
 
+set first_param_name ""
 if { $has_parameters_p } {
+
+    # Set focus on first param name
+    set first_param_name [lindex [array names parameters] 0]
+
     set form_widgets [list]
     foreach parameter_name [array names parameters] {
         lappend form_widgets [list ${parameter_name}:text,optional [list label $parameter_name] [list help_text $parameters($parameter_name)] {html {size 50}}]
@@ -72,5 +75,8 @@
                         -value [element get_property parameters $element_name value]
                 }
             }
+
+            ad_returnredirect $authority_url
+            ad_script_abort
         }
 }