Index: openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-oracle.xql	9 Jul 2002 17:34:59 -0000	1.1
+++ openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-oracle.xql	14 Jul 2002 00:50:49 -0000	1.2
@@ -9,6 +9,7 @@
 	begin
 	    :1 := acs.add_user(user_id => :user_id,
 			 email => :email,
+			 creation_date => :registration_date
 			 url => :url,
 			 first_names => :first_names,
 			 last_name => :last_name,
Index: openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-postgresql.xql	9 Jul 2002 17:34:59 -0000	1.1
+++ openacs.org-dev/packages/acs-tcl/tcl/community-core-procs-postgresql.xql	14 Jul 2002 00:50:49 -0000	1.2
@@ -9,7 +9,7 @@
 	    select acs__add_user(
                          :user_id,
                          'user',
-                         now(),
+                         :registration_date,
                          null,
 	                 :peeraddr,
 			 :email,
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"]