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.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	8 Oct 2001 21:39:05 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	9 Nov 2001 03:56:43 -0000	1.2
@@ -44,4 +44,10 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_type_from_community_id.select_community_type">
+<querytext>
+select object_type from acs_object_types where supertype='dotlrn_community' start with object_type = (select community_type from dotlrn_communities where community_id=:community_id) connect by object_type= prior supertype 
+</querytext>
+</fullquery>
+
 </queryset>