Index: openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql	13 May 2001 05:24:27 -0000	1.1
@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>                                                                             
+<partialquery name="acs_object_type_hierarchy.object_type_not_null">      
+      <querytext>
+
+	select object_type,
+	       pretty_name,
+               '' as indent
+	  from acs_object_types
+	 start with object_type = :object_type
+       connect by prior supertype = object_type
+         order by level desc
+
+      </querytext>
+</partialquery>
+ 
+<partialquery name="acs_object_type_hierarchy.object_type_is_null">      
+      <querytext>
+
+	select object_type,
+	       pretty_name,
+	       replace(lpad(' ', (level - 1) * $indent_width), ' ', '$indent_string') as indent
+	  from acs_object_types
+         start with supertype is null
+       connect by supertype = prior object_type
+
+      </querytext>
+</partialquery>
+
+</queryset>