Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	18 Sep 2003 13:44:30 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	24 Sep 2003 15:19:24 -0000	1.14
@@ -20,23 +20,25 @@
     security::require_secure_conn
 }
 
-# TODO: log user out if currently logged in, if specified in the includeable chunk's parameters, e.g. not when creating accounts for other users
+# TODO: Log user out if currently logged in, if specified in the includeable chunk's parameters, e.g. not when creating accounts for other users
 ad_user_logout 
 
+# TODO: Generate user_id for double-click
 
 ad_form -name register -form [auth::get_registration_form_elements] -on_request {
     # Populate elements from local variables
 } -on_submit {
 
     array set creation_info [auth::create_user \
+                                 -verify_password_confirm \
+                                 -username $username \
+                                 -email $email \
                                  -first_names $first_names \
                                  -last_name $last_name \
-                                 -email $email \
-                                 -url $url \
-                                 -username $username \
+                                 -screen_name $screen_name \
                                  -password $password \
                                  -password_confirm $password_confirm \
-                                 -verify_password_confirm \
+                                 -url $url \
                                  -secret_question $secret_question \
                                  -secret_answer $secret_answer]