Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	29 Mar 2002 19:14:47 -0000	1.20
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	16 May 2002 05:17:09 -0000	1.21
@@ -25,6 +25,14 @@
     {referer "/dotlrn/admin/users"}
 }
 
+db_1row select_user_info {
+    select email,
+           first_names,
+           last_name
+    from registered_users
+    where user_id = :user_id
+}
+
 form create add_user
 
 element create add_user user_id \
@@ -38,6 +46,7 @@
     -datatype text \
     -widget text \
     -html {size 30} \
+    -value email \
     -optional
 
 element create add_user type \
@@ -79,13 +88,6 @@
     return
 }
 
-db_1row select_user_info {
-    select first_names,
-           last_name
-    from registered_users
-    where user_id = :user_id
-}
-
 set context_bar {{users Users} New}
 
 ad_return_template