Index: openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/manage-memberships-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql	11 Mar 2002 21:24:54 -0000	1.1
+++ openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql	13 Mar 2002 00:12:09 -0000	1.2
@@ -119,10 +119,11 @@
         <querytext>
             select count(*)
             from dotlrn_class_instances_full
-            where not exists (select 1
-                              from dotlrn_member_rels_full
-                              where dotlrn_member_rels_full.user_id = :user_id
-                              and dotlrn_member_rels_full.community_id = dotlrn_class_instances_full.class_instance_id)
+            where dotlrn_class_instances_full.join_policy <> 'closed'
+            and not exists (select 1
+                            from dotlrn_member_rels_full
+                            where dotlrn_member_rels_full.user_id = :user_id
+                            and dotlrn_member_rels_full.community_id = dotlrn_class_instances_full.class_instance_id)
         </querytext>
     </fullquery>
 
@@ -131,10 +132,11 @@
             select dotlrn_class_instances_full.*,
                    acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p
             from dotlrn_class_instances_full
-            where not exists (select 1
-                              from dotlrn_member_rels_full
-                              where dotlrn_member_rels_full.user_id = :user_id
-                              and dotlrn_member_rels_full.community_id = dotlrn_class_instances_full.class_instance_id)
+            where dotlrn_class_instances_full.join_policy <> 'closed'
+            and not exists (select 1
+                            from dotlrn_member_rels_full
+                            where dotlrn_member_rels_full.user_id = :user_id
+                            and dotlrn_member_rels_full.community_id = dotlrn_class_instances_full.class_instance_id)
             order by dotlrn_class_instances_full.department_name,
                      dotlrn_class_instances_full.department_key,
                      dotlrn_class_instances_full.pretty_name,
@@ -148,6 +150,7 @@
                    acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p
             from dotlrn_class_instances_full
             where dotlrn_class_instances_full.department_key = :non_member_department_key
+            and dotlrn_class_instances_full.join_policy <> 'closed'
             and not exists (select 1
                             from dotlrn_member_rels_full
                             where dotlrn_member_rels_full.user_id = :user_id
@@ -165,6 +168,7 @@
                    acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p
             from dotlrn_class_instances_full
             where dotlrn_class_instances_full.term_id = :non_member_term_id
+            and dotlrn_class_instances_full.join_policy <> 'closed'
             and not exists (select 1
                             from dotlrn_member_rels_full
                             where dotlrn_member_rels_full.user_id = :user_id
@@ -183,6 +187,7 @@
             from dotlrn_class_instances_full
             where dotlrn_class_instances_full.department_key = :non_member_department_key
             and dotlrn_class_instances_full.term_id = :non_member_term_id
+            and dotlrn_class_instances_full.join_policy <> 'closed'
             and not exists (select 1
                             from dotlrn_member_rels_full
                             where dotlrn_member_rels_full.user_id = :user_id
@@ -199,10 +204,11 @@
             select dotlrn_clubs_full.*,
                    acs_permission.permission_p(dotlrn_clubs_full.club_id, :user_id, 'admin') as admin_p
             from dotlrn_clubs_full
-            where not exists (select 1
-                              from dotlrn_member_rels_full
-                              where dotlrn_member_rels_full.user_id = :user_id
-                              and dotlrn_member_rels_full.community_id = dotlrn_clubs_full.club_id)
+            where dotlrn_clubs_full.join_policy <> 'closed'
+            and not exists (select 1
+                            from dotlrn_member_rels_full
+                            where dotlrn_member_rels_full.user_id = :user_id
+                            and dotlrn_member_rels_full.community_id = dotlrn_clubs_full.club_id)
             order by dotlrn_clubs_full.pretty_name,
                      dotlrn_clubs_full.community_key
         </querytext>