Index: openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.xql	9 Jun 2004 18:08:07 -0000	1.1
+++ openacs-4/packages/ims-ent/tcl/ims-ent-dotlrn-procs.xql	16 Jun 2004 23:06:45 -0000	1.2
@@ -86,6 +86,11 @@
       where start_date >= :start_date
       and end_date <= :end_date
       order by end_date DESC
+      UNION
+      select term_id
+      from dotlrn_terms
+      where end_date >= now()
+      order by end_date DESC
       limit 1
     </querytext>
   </fullquery>