Index: openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql 30 Sep 2003 12:10:03 -0000 1.3 +++ openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql 10 Nov 2006 21:40:34 -0000 1.4 @@ -77,11 +77,11 @@ select - pretty_name, object_type, level, indent, + pretty_name, object_type, indent, case when valid_types.rel_type = null then 0 else 1 end as valid_p from (select - t.pretty_name, t.object_type, level, + t.pretty_name, t.object_type, replace(lpad(' ', (level - 1) * 4), ' ', ' ') as indent, rownum as tree_rownum