Index: openacs-4/packages/acs-admin/www/users/user-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/users/user-add.adp	26 Sep 2003 13:04:18 -0000	1.7
+++ openacs-4/packages/acs-admin/www/users/user-add.adp	8 Oct 2003 09:57:11 -0000	1.8
@@ -1,6 +1,6 @@
 <master>
 <property name=title>Add a user</property>
-<property name="focus">user.email</property>
+<property name="focus">register.email</property>
 <property name="context">@context;noquote@</property>
 
 <include src="/packages/acs-subsite/lib/user-new" next_url="@next_url;noquote@" self_register_p="0"/>
Index: openacs-4/packages/acs-admin/www/users/user-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/users/user-add.tcl	26 Sep 2003 13:04:18 -0000	1.4
+++ openacs-4/packages/acs-admin/www/users/user-add.tcl	8 Oct 2003 09:57:11 -0000	1.5
@@ -9,12 +9,6 @@
     export_vars:onevalue
 }
 
-set context [list [list "./" "Users"] "Add user"]
+set context [list [list "." "Users"] "Add user"]
 
-# generate unique key here so we can handle the "user hit s" case
-set user_id [db_nextval acs_object_id_seq]
-set export_vars [export_form_vars user_id]
-
 set next_url user-add-2
-
-ad_return_template