Index: openacs-4/packages/dotlrn/www/admin/class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/class.tcl	11 Jan 2002 06:33:26 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/class.tcl	6 Mar 2002 22:35:15 -0000	1.4
@@ -5,16 +5,21 @@
     @creation-date Dec 10, 2001
     @version $Id$
 } -query {
-    {filter "select_current_class_instances"}
+    {term_id -1}
 } -properties {
     class_key:onevalue
     pretty_name:onevalue
     instances:multirow
     can_instantiate:onevalue
 }
 
-db_multirow instances $filter {}
+set query "select_class_instances"
+if {$term_id == -1} {
+    set query "select_all_class_instances"
+}
 
-set can_instantiate [db_string can_instantiate_class {}]
+db_multirow instances $query {}
 
+set can_instantiate [dotlrn_class::can_instantiate -class_key $class_key]
+
 ad_return_template