Index: openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	17 Dec 2001 23:02:56 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	10 Jan 2002 19:30:17 -0000	1.7
@@ -82,4 +82,14 @@
       connect by object_type = prior supertype 
     </querytext>
   </fullquery>
+
+  <fullquery name="dotlrn_community::get_toplevel_community_type.select_community_type">
+    <querytext>
+      select object_type
+      from acs_object_types
+      where supertype = 'dotlrn_community'
+      start with object_type = :community_type
+      connect by object_type = prior supertype 
+    </querytext>
+  </fullquery>
 </queryset>