Index: openacs-4/packages/dotlrn/tcl/class-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.xql,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	13 Jan 2005 13:57:20 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	22 Nov 2017 13:22:52 -0000	1.17
@@ -61,4 +61,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_class::can_instantiate.can_instantiate">
+        <querytext>
+            select count(*)
+            from dual
+            where exists (select 1
+                          from dotlrn_terms
+                          where dotlrn_terms.end_date > current_timestamp)
+        </querytext>
+    </fullquery>
+    
 </queryset>