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.14 -r1.15
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 30 Nov 2001 03:41:17 -0000 1.14
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 1 Dec 2001 23:16:27 -0000 1.15
@@ -49,28 +49,22 @@
-select rel_id, page_id from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
+select rel_id, portal_id from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
-
+
-select page_id from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
+select portal_id from dotlrn_member_rels_full where community_id= :community_id and user_id= :user_id
-
+
-select page_id from dotlrn_users where user_id= :user_id
+select portal_id from dotlrn_communities where community_id= :community_id
-
-
-select page_id from dotlrn_communities where community_id= :community_id
-
-
-
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
@@ -90,7 +84,7 @@
select community_id, community_type, pretty_name, description, package_id
-from dotlrn_communities
+from dotlrn_active_not_closed_comms
where community_type= :community_type