Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	10 Jan 2002 19:30:17 -0000	1.19
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	11 Jan 2002 21:51:50 -0000	1.20
@@ -53,9 +53,18 @@
                                 references apm_packages (package_id)
 );
 
+create or replace view dotlrn_communities_not_closed
+as
+    select dotlrn_communities.*,
+           groups.join_policy
+    from dotlrn_communities,
+         groups
+    where dotlrn_communities.community_id = groups.group_id
+    and groups.join_policy <> 'closed';
+
 create or replace view dotlrn_active_communities
 as
-    select dotlrn_communities.*
+    select *
     from dotlrn_communities
     where (active_start_date is null or active_start_date < sysdate)
     and (active_end_date is null or active_end_date > sysdate);
