Index: openacs-4/packages/dotlrn/tcl/community-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/community-procs-postgresql.xql	14 Aug 2002 19:22:24 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/community-procs-postgresql.xql	29 Jun 2004 10:17:54 -0000	1.4
@@ -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>
@@ -90,4 +90,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>