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.41 -r1.42
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	22 Mar 2002 22:23:54 -0000	1.41
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	22 Mar 2002 22:55:29 -0000	1.42
@@ -320,6 +320,18 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::open_p.check_community_open_p">
+<querytext>
+select 1 from dotlrn_active_comms_not_closed where community_id= :community_id and join_policy = 'open'
+</querytext>
+</fullquery>
+
+<fullquery name="dotlrn_community::needs_approval_p.check_community_needs_approval">
+<querytext>
+select 1 from dotlrn_active_comms_not_closed where community_id= :community_id and join_policy = 'needs approval'
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_portal_template_id.select_portal_template_id">
 <querytext>
 select portal_template_id from dotlrn_communities where community_id= :community_id