Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-postgresql.xql	9 Sep 2001 17:10:41 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.4
@@ -11,7 +11,7 @@
       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 || '%')
+             where t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey)
 	       and t2.object_type not in (select g.rel_type 
                                             from group_type_rels g 
                                            where g.group_type = :group_type)