Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql	9 Aug 2002 20:02:27 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-postgresql.xql	22 Aug 2003 15:06:30 -0000	1.8
@@ -6,32 +6,33 @@
 <fullquery name="ad_user_new.user_insert">      
       <querytext>
 
-	    select acs__add_user(
-                         :user_id,
-                         'user',
-                         now(),
-                         null,
-	                 :peeraddr,
-			 :email,
-			 :url,
-			 :first_names,
-			 :last_name,
-			 :hashed_password,
-	                 :salt,
-	                 :password_question,
-	                 :password_answer,
-                         null,
-	                 :email_verified_p,
-	                 :member_state);
-	
+            select acs__add_user(
+                :user_id,
+                'user',
+                now(),
+                null,
+                :peeraddr,
+                null,   -- authority
+                :username,
+                :email,
+                :url,
+                :first_names,
+                :last_name,
+                :hashed_password,
+                :salt,
+                null,
+                :email_verified_p,
+                :member_state
+            );
+        
       </querytext>
 </fullquery>
 
 <fullquery name="person::delete.delete_person">      
       <querytext>
 
-	    select person__delete(:person_id);
-	
+            select person__delete(:person_id);
+        
       </querytext>
 </fullquery>