Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql	15 May 2001 16:59:00 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql	7 Sep 2001 20:57:20 -0000	1.2
@@ -5,19 +5,18 @@
 
 <fullquery name="select_primary_relations">      
       <querytext>
-      FIX ME CONNECT BY
 
-    select replace(lpad(' ', (t.type_level - 1) * 4), ' ', '&nbsp;') as indent,
+    select lpad('&nbsp;', (t.type_level - 1) * 4) as indent,
            t.pretty_name, t.rel_type
-      from (select t.pretty_name, t.object_type as rel_type, level as type_level
+      from (select t.pretty_name, t.object_type as rel_type, tree_level(tree_sortkey) as type_level
               from acs_object_types t
              where t.object_type not in (select g.rel_type 
                                            from group_rels g 
                                           where g.group_id = :group_id)
-           connect by prior t.object_type = t.supertype
-             start with t.object_type in ('membership_rel', 'composition_rel')) t,
-           acs_rel_types rel_type
-     where t.rel_type = rel_type.rel_type
+	 and (t.tree_sortkey like (select tree_sortkey || '%' from acs_object_types where object_type = 'membership_rel')
+		or t.tree_sortkey like (select tree_sortkey || '%' from acs_object_types where object_type = 'composition_rel'))) t, acs_rel_types rel_type
+
+       where t.rel_type = rel_type.rel_type
        and (rel_type.object_type_one = :group_type 
             or acs_object_type__is_subtype_p(rel_type.object_type_one, :group_type) = 't')