Index: openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	28 Aug 2001 19:03:28 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	9 Sep 2001 16:34:56 -0000	1.5
@@ -52,13 +52,14 @@
 		case when valid_types.rel_type = null then 0 else 1 end as valid_p
 	from 
 		(select
-			t.pretty_name, t.object_type, tree_level(t.tree_sortkey) as level,
-		        lpad(' ', (tree_level(t.tree_sortkey) - 1) * 4) as indent,
-	        	t.tree_sortkey as sortkey
+			t2.pretty_name, t2.object_type, tree_level(t2.tree_sortkey) - tree_level(t1.tree_sortkey) as level,
+		        repeat(' ', (tree_level(t2.tree_sortkey) - tree_level(t1.tree_sortkey)) * 4) as indent,
+	        	t2.tree_sortkey as sortkey
 		from
-			acs_object_types t
-		where tree_sortkey like (select tree_sortkey || '%' 
-					from acs_object_types where object_type = :start_with)) types left join
+			acs_object_types t1,
+			acs_object_types t2
+		where	t2.tree_sortkey like (t1.tree_sortkey || '%')
+		  and   t1.object_type = :start_with) types left join
 		(select
 			rel_type
 		from