Index: openacs-4/packages/dotlrn/www/admin/class.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/admin/class.xql	22 May 2002 18:41:23 -0000	1.11
+++ openacs-4/packages/dotlrn/www/admin/class.xql	13 Jan 2005 13:57:21 -0000	1.12
@@ -12,14 +12,57 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="select_all_classes_instances">
+        <querytext>
+            select dotlrn_class_instances_full.*,
+                   (select count(*)
+                    from dotlrn_member_rels_approved
+                    where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
+            from dotlrn_class_instances_full
+            where 1=1
+            $keyword_clause
+	    [template::list::page_where_clause -and -name "class_instances" -key "dotlrn_class_instances_full.class_instance_id"]
+	    [template::list::orderby_clause -orderby -name "class_instances"]
+       </querytext>
+    </fullquery>
+
+    <fullquery name="select_all_classes_instances_paginator">
+        <querytext>
+            select dotlrn_class_instances_full.*,
+                   (select count(*)
+                    from dotlrn_member_rels_approved
+                    where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
+            from dotlrn_class_instances_full
+            where 1=1
+            $keyword_clause
+            [template::list::orderby_clause -orderby -name "class_instances"]
+        </querytext>
+    </fullquery>
+
     <fullquery name="select_all_class_instances">
         <querytext>
             select dotlrn_class_instances_full.*,
                    (select count(*)
                     from dotlrn_member_rels_approved
                     where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
             from dotlrn_class_instances_full
+            where dotlrn_class_instances_full.class_key = :class_key 
+            $keyword_clause
+	    [template::list::page_where_clause -and -name "class_instances" -key "dotlrn_class_instances_full.class_instance_id"]
+	    [template::list::orderby_clause -orderby -name "class_instances"]
+       </querytext>
+    </fullquery>
+
+    <fullquery name="select_all_class_instances_paginator">
+        <querytext>
+            select dotlrn_class_instances_full.*,
+                   (select count(*)
+                    from dotlrn_member_rels_approved
+                    where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
+            from dotlrn_class_instances_full
             where dotlrn_class_instances_full.class_key = :class_key
+            $keyword_clause
+            [template::list::orderby_clause -orderby -name "class_instances"]
         </querytext>
     </fullquery>
 
@@ -31,8 +74,31 @@
                     where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
             from dotlrn_class_instances_full
             where dotlrn_class_instances_full.class_key = :class_key
+            $keyword_clause
             and dotlrn_class_instances_full.term_id = :term_id
+	    [template::list::page_where_clause -and -name "class_instances" -key "dotlrn_class_instances_full.class_instance_id"]
+	    [template::list::orderby_clause -orderby -name "class_instances"]
         </querytext>
     </fullquery>
 
+    <fullquery name="select_class_instances_paginator">
+        <querytext>
+            select dotlrn_class_instances_full.*,
+                   (select count(*)
+                    from dotlrn_member_rels_approved
+                    where dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id) as n_members
+            from dotlrn_class_instances_full
+            where dotlrn_class_instances_full.class_key = :class_key
+            $keyword_clause
+            and dotlrn_class_instances_full.term_id = :term_id
+            [template::list::orderby_clause -orderby -name "class_instances"]
+        </querytext>
+    </fullquery>
+
+    <partialquery name="class_instances_keyword">
+      <querytext>
+	and dotlrn_class_instances_full.pretty_name like '%'||:keyword||'%'
+      </querytext>
+    </partialquery>
+
 </queryset>