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.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/class.xql	10 Dec 2001 22:49:39 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/class.xql	17 Dec 2001 23:02:56 -0000	1.2
@@ -9,4 +9,14 @@
       order by class_instance_id
     </querytext>
   </fullquery>
+
+  <fullquery name="can_instantiate_class">
+    <querytext>
+      select count(*)
+      from dotlrn_terms
+      where dotlrn_terms.term_id not in (select dotlrn_class_instances.term_id
+                                         from dotlrn_class_instances
+                                         where dotlrn_class_instances.class_key = :class_key)
+    </querytext>
+  </fullquery>
 </queryset>