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 -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql	9 Sep 2001 17:10:41 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.4
@@ -10,11 +10,11 @@
            t.pretty_name, t.rel_type
       from (select t2.pretty_name, t2.object_type as rel_type, tree_level(t2.tree_sortkey) - tree_level(t1.tree_sortkey) + 1  as type_level
               from acs_object_types t1,
-		   acs_object_types t2
-             where t2.tree_sortkey like (t1.tree_sortkey || '%')
-	       and t2.object_type not in (select g.rel_type 
-                                            from group_rels g 
-                                           where g.group_id = :group_id)
+		   acs_object_types t2,
+                   group_rels g 
+             where t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey)
+	       and t2.object_type <> g.rel_type 
+               and g.group_id = :group_id
 	       and t1.object_type in ('membership_rel', 'composition_rel')) t,
 	    acs_rel_types rel_type
        where t.rel_type = rel_type.rel_type