Index: openacs-4/packages/user-tracking/www/communities-chunk-medium-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/Attic/communities-chunk-medium-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/user-tracking/www/communities-chunk-medium-oracle.xql	10 Mar 2006 12:32:07 -0000	1.1.2.1
@@ -0,0 +1,58 @@
+<?xml version="1.0"?>
+
+<queryset>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+    <fullquery name="select_dotlrn_clubs">
+        <querytext>
+            select distinct h.community_key,
+			h.community_id,
+			h.pretty_name,
+			h.parent_community_id
+		from dotlrn_communities h, dotlrn_clubs c
+		where (h.parent_community_id is not null
+			or c.club_id = h.community_id)
+			and upper(substr(h.pretty_name, 1, 1)) = :section
+            	order by h.pretty_name
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_dotlrn_clubs_other">
+        <querytext>
+            select distinct h.community_key,
+			h.community_id,
+			h.pretty_name,
+			h.parent_community_id
+		from dotlrn_communities h, dotlrn_clubs c
+		where (h.parent_community_id is not null
+			or c.club_id = h.community_id)
+			and upper(substr(h.pretty_name, 1, 1))  not in ('[join $dimension_list "\', \'"]')
+            	order by h.pretty_name
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_dotlrn_classes">
+        <querytext>
+		select dotlrn_communities_full.community_key,
+			dotlrn_communities_full.community_id,
+			dotlrn_communities_full.pretty_name
+		from dotlrn_classes, dotlrn_communities_full
+		where dotlrn_communities_full.community_type = dotlrn_classes.class_key
+			and upper(substr(dotlrn_communities_full.pretty_name, 1, 1)) = :section
+		order by dotlrn_communities_full.pretty_name
+	</querytext>
+    </fullquery>
+
+    <fullquery name="select_dotlrn_classes_other">
+        <querytext>
+		select dotlrn_communities_full.community_key,
+			dotlrn_communities_full.community_id,
+			dotlrn_communities_full.pretty_name
+		from dotlrn_classes, dotlrn_communities_full
+		where dotlrn_communities_full.community_type = dotlrn_classes.class_key
+			and upper(substr(dotlrn_communities_full.pretty_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+		order by dotlrn_communities_full.pretty_name
+	</querytext>
+    </fullquery>
+
+</queryset>