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 @@
+
+
+ select community_type
+ from dotlrn_communities
+ where community_id = :community_id
+
+
+
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