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.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/class.xql	17 Dec 2001 23:02:56 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/class.xql	11 Jan 2002 06:33:26 -0000	1.3
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 
 <queryset>
-  <fullquery name="select_class_instances">
+  <fullquery name="select_all_class_instances">
     <querytext>
       select class_instance_id
       from dotlrn_class_instances
@@ -10,6 +10,24 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="select_current_class_instances">
+    <querytext>
+      select class_instance_id
+      from dotlrn_class_instances_current
+      where class_key = :class_key
+      order by class_instance_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="select_current_and_future_class_instances">
+    <querytext>
+      select class_instance_id
+      from dotlrn_class_instances_not_old
+      where class_key = :class_key
+      order by class_instance_id
+    </querytext>
+  </fullquery>
+
   <fullquery name="can_instantiate_class">
     <querytext>
       select count(*)