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 -r1.13 -r1.14
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	16 May 2002 13:29:15 -0000	1.13
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	14 Aug 2002 19:13:41 -0000	1.14
@@ -11,6 +11,21 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_department::delete.delete_department">
+        <querytext>
+            delete from dotlrn_classes
+            where class_key = :class_key
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_class::count_class_instances.select_count_class_instaces">
+        <querytext>
+          select count(*)
+          from dotlrn_class_instances
+          where class_key = :class_key
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_class::new_instance.select_parent_node_id">
         <querytext>
             select node_id