Index: openacs-4/packages/dotlrn/www/admin/classes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/classes.tcl	10 Dec 2001 22:48:57 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/classes.tcl	11 Jan 2002 06:33:26 -0000	1.4
@@ -7,11 +7,23 @@
     @version $Id$
 } -query {
 } -properties {
+    filter_bar:onevalue
     classes:multirow
 }
 
 set context_bar "Classes"
 
+set filter select_current_class_instances
+set filter_bar [ad_dimensional {
+    {filter "Term:" select_current_class_instances
+        {
+            {select_current_class_instances current {}}
+            {select_current_and_future_class_instances "+future" {}}
+            {select_all_class_instances "+past" {}}
+        }
+    }
+}]
+
 db_multirow classes select_classes {}
 
 ad_return_template