Index: openacs.org-dev/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/acs-tcl/tcl/community-core-procs.tcl	9 Jul 2002 17:34:59 -0000	1.1
+++ openacs.org-dev/packages/acs-tcl/tcl/community-core-procs.tcl	14 Jul 2002 00:50:49 -0000	1.2
@@ -61,7 +61,7 @@
     return [util_memoize [list cc_lookup_name_group $name]]
 }
 
-ad_proc ad_user_new {email first_names last_name password password_question password_answer  {url ""} {email_verified_p "t"} {member_state "approved"} {user_id ""} } {
+ad_proc ad_user_new {email first_names last_name password password_question password_answer  {url ""} {email_verified_p "t"} {member_state "approved"} {user_id ""} {registration_date ""} } {
 
     Creates a new user in the system.  The user_id can be specified as an argument to enable double click protection.
     If this procedure succeeds, returns the new user_id.  Otherwise, returns 0.
@@ -82,6 +82,10 @@
         set url [db_null]
     }
 
+    if { [empty_string_p registration_date] } {
+	set registration_date [db_sysdate] 
+    }
+
     set peeraddr [ad_conn peeraddr]
     set salt [sec_random_token]
     set hashed_password [ns_sha1 "$password$salt"]