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.20 -r1.21
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	7 Jul 2002 01:07:10 -0000	1.20
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	9 Jul 2002 18:47:33 -0000	1.21
@@ -5,19 +5,9 @@
 
     <fullquery name="dotlrn_community::get_community_id_not_cached.select_community">
         <querytext>
-            select dotlrn_communities.community_id
-            from dotlrn_communities,
-                 (select site_nodes.object_id
-                 from site_nodes
-                 where exists (select 1
-                               from dotlrn_communities dc
-                               where dc.package_id = site_nodes.object_id)
-                 and rownum = 1
-                 start with site_nodes.node_id = (select sn.node_id
-                                                  from site_nodes sn
-                                                  where sn.object_id = :package_id)
-                 connect by prior site_nodes.parent_id = site_nodes.node_id) packages
-            where dotlrn_communities.package_id = packages.object_id
+            select community_id
+            from dotlrn_communities
+            where package_id = :package_id
         </querytext>
     </fullquery>
 
Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.152 -r1.153
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	7 Jul 2002 01:07:10 -0000	1.152
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2002 18:47:33 -0000	1.153
@@ -933,7 +933,7 @@
         we're at, or the package_id passed in
     } {
         if {[empty_string_p $package_id]} {
-            set package_id [ad_conn package_id]
+            set package_id [site_node_closest_ancestor_package dotlrn]
         }
 
         return [util_memoize "dotlrn_community::get_community_id_not_cached -package_id $package_id"]