Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Sep 2003 19:45:32 -0000	1.14
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	4 Sep 2003 09:10:32 -0000	1.15
@@ -209,6 +209,7 @@
 }
 
 ad_proc -public auth::create_user {
+    {-verify_password_confirm:boolean}
     {-user_id ""}
     {-username ""}
     {-email ""}
@@ -226,7 +227,11 @@
     Create a user, and return creation status and account status.
     
     @param email_verified_p Whether the local account considers the email to be verified or not.
+
     @param member_state     Whether the local account has been approved.
+
+    @param verify_password_confirm
+                            Set this flag if you want the proc to verify that password and password_confirm match for you.
                             
     @return Array list containing the following entries:
 
@@ -269,9 +274,11 @@
             set missing_elements_p 1
         }
     }
-    if { ![empty_string_p "$password$password_confirm"] && ![string equal $password $password_confirm] } {
-        set element_messages(password) "Passwords don't match"
-        set missing_elements_p 1
+    if { $verify_password_confirm_p } {
+        if { ![empty_string_p "$password$password_confirm"] && ![string equal $password $password_confirm] } {
+            set element_messages(password) "Passwords don't match"
+            set missing_elements_p 1
+        }
     }
     if { $missing_elements_p } {
         return [list \
Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	3 Sep 2003 19:45:33 -0000	1.14
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	4 Sep 2003 09:10:32 -0000	1.15
@@ -132,7 +132,6 @@
                                      -first_names "Test" \
                                      -last_name "User" \
                                      -password "changeme" \
-                                     -password_confirm "changeme" \
                                      -secret_question "no_question" \
                                      -secret_answer "no_answer"]
 
@@ -163,7 +162,6 @@
                                      -first_names "" \
                                      -last_name "User" \
                                      -password "changeme" \
-                                     -password_confirm "changeme" \
                                      -secret_question "no_question" \
                                      -secret_answer "no_answer"]
             
@@ -191,7 +189,6 @@
                                      -first_names "Test3" \
                                      -last_name "User" \
                                      -password "changeme" \
-                                     -password_confirm "changeme" \
                                      -secret_question "no_question" \
                                      -secret_answer "no_answer"]
 
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.8 -r1.9
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	3 Sep 2003 19:48:05 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	4 Sep 2003 09:10:58 -0000	1.9
@@ -21,6 +21,7 @@
                                  -username $username \
                                  -password $password \
                                  -password_confirm $password_confirm \
+                                 -verify_password_confirm \
                                  -secret_question $secret_question \
                                  -secret_answer $secret_answer]