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.4 -r1.5
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	30 Nov 2001 03:41:17 -0000	1.4
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	8 Dec 2001 01:22:40 -0000	1.5
@@ -49,6 +49,14 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_type_from_community_id.select_community_type">
+  <querytext>
+    select community_type
+    from dotlrn_communities
+    where community_id = :community_id
+  </querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_toplevel_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