Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	28 Aug 2003 08:26:57 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	28 Aug 2003 09:30:19 -0000	1.6
@@ -9,15 +9,18 @@
 	begin
 	    :1 := acs.add_user(
                 user_id => :user_id,
-		email => :email,
-		url => :url,
-		first_names => :first_names,
-		last_name => :last_name,
-		password => :hashed_password,
-	        salt => :salt,
-	        creation_ip => :peeraddr,
-	        email_verified_p => :email_verified_p,
-	        member_state => :member_state
+                object_type => 'user',
+                creation_user => :creation_user,
+                creation_ip => :peeraddr,
+                username => :username,
+                email => :email,
+                url => :url,
+                first_names => :first_names,
+                last_name => :last_name,
+                password => :password,
+                salt => :salt,
+                email_verified_p => :email_verified_p,
+                member_state => :member_state
             );
 	end;
 	
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	25 Aug 2003 13:46:41 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Aug 2003 09:30:19 -0000	1.18
@@ -100,7 +100,14 @@
         set username $email
     }
 
-    set peeraddr [ad_conn peeraddr]
+    if { [ad_conn isconnected] } {
+        set creation_user [ad_conn user_id]
+        set peeraddr [ad_conn peeraddr]
+    } else {
+        set creation_user ""
+        set peeraddr ""
+    }
+
     set salt [sec_random_token]
     set hashed_password [ns_sha1 "$password$salt"]