Index: openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	1 May 2001 18:58:13 -0000	1.6
+++ openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	3 Sep 2001 20:51:38 -0000	1.7
@@ -413,6 +413,7 @@
 
 -- create or replace package body person
 -- function new
+select define_function_args('person__new','person_id,object_type;person,creation_date;now(),creation_user,creation_ip,email,url,first_names,last_name,context_id');
 create function person__new (integer,varchar,timestamp,integer,varchar,varchar,varchar,varchar,varchar,integer)
 returns integer as '
 declare
@@ -614,6 +615,7 @@
 
 -- create or replace package body acs_user
 -- function new
+select define_function_args('user__new','user_id,object_type;user,creation_date;now(),creation_user,creation_ip,email,url,first_names,last_name,password,salt,password_question,password_answer,screen_name,email_verified_p;t,context_id');
 create function acs_user__new (integer,varchar,timestamp,integer,varchar,varchar,varchar,varchar,varchar,char,char,varchar,varchar,varchar,boolean,integer)
 returns integer as '
 declare
Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list-postgresql.xql	11 Aug 2001 21:31:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list-postgresql.xql	3 Sep 2001 20:51:38 -0000	1.4
@@ -12,9 +12,8 @@
        and object_type in (
                select t1.object_type
 	         from acs_object_types t1, acs_object_types t2
-		where t1.tree_sortkey <= t2.tree_sortkey
-		  and t2.tree_sortkey like (t1.tree_sortkey || '%')
-		  and t2.object_type = :rel_type
+		where t2.tree_sortkey like (t1.tree_sortkey || '%')
+		  and t1.object_type = :rel_type
 	   )
 
       </querytext>
Index: openacs-4/packages/acs-subsite/www/admin/users/new-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/users/new-postgresql.xql	15 May 2001 16:59:01 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/users/new-postgresql.xql	3 Sep 2001 20:51:38 -0000	1.2
@@ -5,16 +5,16 @@
 
 <fullquery name="rel_type_info">      
       <querytext>
-      FIX ME CONNECT BY
 
     select object_type as ancestor_rel_type
       from acs_object_types
      where supertype = 'relationship'
        and object_type in (
-               select object_type from acs_object_types
-               start with object_type = :add_with_rel_type
-               connect by object_type = prior supertype
-           )
+               select t1.object_type
+	         from acs_object_types t1, acs_object_types t2
+		where t2.tree_sortkey like (t1.tree_sortkey || '%')
+		  and t1.object_type = :add_with_rel_type
+	   )
 
       </querytext>
 </fullquery>