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.16 -r1.17
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	3 Dec 2001 19:17:08 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	8 Dec 2001 01:22:40 -0000	1.17
@@ -73,9 +73,17 @@
 </fullquery>
 
 <fullquery name="dotlrn_community::get_all_communities_by_user.select_communities_by_user">
-<querytext>
-select dotlrn_communities.community_id, community_type, community_key, pretty_name from dotlrn_communities, dotlrn_member_rels_full where dotlrn_communities.community_id = dotlrn_member_rels_full.community_id and dotlrn_member_rels_full.user_id = :user_id
-</querytext>
+  <querytext>
+    select dotlrn_communities.community_id,
+           dotlrn_communities.community_type,
+           dotlrn_communities.community_key,
+           dotlrn_communities.pretty_name,
+           dotlrn_communities.package_id
+    from dotlrn_communities,
+         dotlrn_member_rels_full
+    where dotlrn_communities.community_id = dotlrn_member_rels_full.community_id
+    and dotlrn_member_rels_full.user_id = :user_id
+  </querytext>
 </fullquery>
 
 <fullquery name="dotlrn_community::get_communities_by_user.select_communities">
@@ -191,4 +199,12 @@
 </querytext>
 </fullquery>
 
+  <fullquery name="dotlrn_community::is_supertype.is_supertype">
+    <querytext>
+      select count(*)
+      from dotlrn_community_types
+      where supertype = :community_type
+    </querytext>
+  </fullquery>
+
 </queryset>