Index: openacs-4/packages/dotlrn/www/communities-chunk-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/communities-chunk-oracle.xql,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/communities-chunk-oracle.xql	31 May 2002 06:23:49 -0000	1.11
+++ openacs-4/packages/dotlrn/www/communities-chunk-oracle.xql	13 Jun 2018 16:27:20 -0000	1.12
@@ -2,213 +2,50 @@
 
 <queryset>
     <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-    <fullquery name="select_all_communities_count">
-        <querytext>
-            select count(*)
-            from dotlrn_communities_not_closed
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_current_memberships">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   1 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_active_communities dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
+  
     <fullquery name="select_all_memberships">
         <querytext>
             select dotlrn_communities.community_id,
                    dotlrn_communities.community_type,
                    dotlrn_communities.pretty_name,
                    dotlrn_communities.description,
                    dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
                    1 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
                    (select dotlrn_community_types.community_type
                     from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
+                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type                   
             from dotlrn_communities dotlrn_communities,
                  dotlrn_member_rels_approved
             where dotlrn_member_rels_approved.user_id = :user_id
             and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
+            and (:community_type is null or dotlrn_communities.community_type = :community_type)
             order by root_community_type,
                      dotlrn_communities.community_type,
                      dotlrn_communities.pretty_name
         </querytext>
     </fullquery>
 
-    <fullquery name="select_current_non_memberships">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   0 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_active_comms_not_closed dotlrn_communities
-            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_communities.community_id)
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
     <fullquery name="select_all_non_memberships">
         <querytext>
             select dotlrn_communities.community_id,
                    dotlrn_communities.community_type,
                    dotlrn_communities.pretty_name,
                    dotlrn_communities.description,
                    dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
                    0 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
                    (select dotlrn_community_types.community_type
                     from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
+                    where dotlrn_community_types.tree_sortkey = tree_ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type                   
             from dotlrn_communities_not_closed dotlrn_communities
             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_communities.community_id)
-            and dotlrn_communities.parent_community_id is null
+            and (:community_type is null or dotlrn_communities.community_type = :community_type)
             order by root_community_type,
                      dotlrn_communities.community_type,
                      dotlrn_communities.pretty_name
         </querytext>
     </fullquery>
 
-    <fullquery name="select_all_communities_count_by_type">
-        <querytext>
-            select count(*)
-            from dotlrn_communities_not_closed dotlrn_communities
-            where dotlrn_communities.community_type = :community_type
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_current_memberships_by_type">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   1 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_active_communities dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            and dotlrn_communities.community_type = :community_type
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_all_memberships_by_type">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   1 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_communities dotlrn_communities,
-                 dotlrn_member_rels_approved
-            where dotlrn_member_rels_approved.user_id = :user_id
-            and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
-            and dotlrn_communities.community_type = :community_type
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_current_non_memberships_by_type">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   0 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_active_comms_not_closed dotlrn_communities
-            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_communities.community_id)
-            and dotlrn_communities.community_type = :community_type
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
-    <fullquery name="select_all_non_memberships_by_type">
-        <querytext>
-            select dotlrn_communities.community_id,
-                   dotlrn_communities.community_type,
-                   dotlrn_communities.pretty_name,
-                   dotlrn_communities.description,
-                   dotlrn_communities.package_id,
-                   dotlrn_community.url(dotlrn_communities.community_id) as url,
-                   0 as member_p,
-                   decode(acs_permission.permission_p(:user_id, dotlrn_communities.community_id, 'admin'), 'f', 0, 1) as admin_p,
-                   (select dotlrn_community_types.community_type
-                    from dotlrn_community_types
-                    where dotlrn_community_types.tree_sortkey = tree.ancestor_key(dotlrn_communities.tree_sortkey, 1)) as root_community_type
-            from dotlrn_communities_not_closed dotlrn_communities
-            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_communities.community_id)
-            and dotlrn_communities.community_type = :community_type
-            order by root_community_type,
-                     dotlrn_communities.community_type,
-                     dotlrn_communities.pretty_name
-        </querytext>
-    </fullquery>
-
 </queryset>