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.23 -r1.24
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	30 Sep 2003 13:11:39 -0000	1.23
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	29 Jun 2004 10:17:54 -0000	1.24
@@ -6,7 +6,7 @@
     <fullquery name="dotlrn_community::get_community_id_not_cached.select_community">
         <querytext>
             select community_id
-            from dotlrn_communities
+            from dotlrn_communities_all
             where package_id = :package_id
         </querytext>
     </fullquery>
@@ -102,4 +102,18 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::get_subcomm_info_list.select_subcomms_info">
+        <querytext>
+            select community_id, 
+                   community_key, 
+                   pretty_name,   
+                   archived_p,
+                   dotlrn_community.url(community_id) as url
+            from dotlrn_communities_all 
+            where parent_community_id = :community_id 
+            and archived_p = 'f'
+            order by pretty_name
+        </querytext>
+    </fullquery>
+
 </queryset>