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.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Nov 2001 22:22:09 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	9 Nov 2001 15:24:57 -0000	1.8
@@ -63,6 +63,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_non_members_page_id.select_community_page_id">
+<querytext>
+select page_id from dotlrn_communities where community_id= :community_id
+</querytext>
+</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