Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	18 Apr 2002 17:36:01 -0000	1.51
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	28 Apr 2002 18:56:29 -0000	1.52
@@ -274,18 +274,18 @@
 </querytext>
 </fullquery>
 
-    <fullquery name="dotlrn_community::get_subcomm_chunk_new.select_subcomm_info">
-        <querytext>
-            select dotlrn_communities.community_id as sc_id, 
-                   decode(acs_permission.permission_p(community_id, :user_id, 'admin'), 'f', 0, 1) as admin_p, 
-                   decode(dotlrn_community.member_p(community_id, :user_id), 'f', 0, 1) as member_p,
-                   decode(dotlrn_community.has_subcomm_p(community_id), 'f', 0, 1) as has_subcomm_p,
-                   dotlrn_community.name(community_id) as name,
-                   dotlrn_community.url(community_id) as url
-            from dotlrn_communities
-            where parent_community_id = :community_id
-        </querytext>
-    </fullquery>
+<fullquery name="dotlrn_community::get_subcomm_info_list.select_subcomms_info">
+  <querytext>
+    select 
+      community_id, 
+      community_key, 
+      pretty_name,   
+      url
+    from dotlrn_communities_full 
+    where parent_community_id= :community_id 
+    order by pretty_name
+  </querytext>
+</fullquery>
 
 <fullquery name="dotlrn_community::get_community_type_package_id.select_package_id">
 <querytext>