Index: openacs-4/packages/dotlrn/tcl/department-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/department-procs.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/department-procs.xql 1 May 2002 01:19:47 -0000 1.5
+++ openacs-4/packages/dotlrn/tcl/department-procs.xql 14 Aug 2002 19:16:12 -0000 1.6
@@ -28,4 +28,16 @@
+
+
+ select count(*) from dotlrn_classes where department_key = :department_key
+
+
+
+
+
+ delete from dotlrn_departments where department_key = :department_key
+
+
+