Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql 21 Feb 2018 14:00:55 -0000 1.21
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql 28 Jun 2018 09:10:14 -0000 1.22
@@ -35,5 +35,51 @@
-
+
+
+
+ (object_type = 'group' or object_type = 'person')
+
+
+
+
+
+ object_type = :start_with
+
+
+
+
+
+
+ select
+ types.pretty_name,
+ types.object_type,
+ types.tree_level,
+ types.indent,
+ case when valid_types.object_type = null then 0 else 1 end as valid_p
+ from
+ (select
+ t.pretty_name, t.object_type, level as tree_level,
+ replace(lpad(' ', (level - 1) * 4),
+ ' ', ' ') as indent,
+ rownum as tree_rownum
+ from
+ acs_object_types t
+ connect by
+ prior t.object_type = t.supertype
+ start with
+ $start_with_clause ) types,
+ (select
+ object_type
+ from
+ rel_types_valid_obj_two_types
+ where
+ rel_type = :rel_type ) valid_types
+ where
+ types.object_type = valid_types.object_type(+)
+ order by tree_rownum
+
+
+
+