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.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	22 Jan 2002 00:13:09 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	19 Feb 2002 19:26:50 -0000	1.7
@@ -19,4 +19,14 @@
                          where class_key = :class_key)
     </querytext>
   </fullquery>
+
+  <fullquery name="dotlrn_class::get_term_id.get_term_id">
+    <querytext>
+      select term_id
+      from dotlrn_class_instances    
+      where class_instance_id = :class_instance_id
+    </querytext>
+  </fullquery>
+
+
 </queryset>