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 -r1.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/department-procs.xql	22 Jan 2002 00:13:09 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/department-procs.xql	16 Mar 2002 17:38:08 -0000	1.2
@@ -10,6 +10,12 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="dotlrn_department::check_department_key_valid_p.check">
+    <querytext>
+      select 1 from dotlrn_departments where department_key = :department_key
+    </querytext>
+  </fullquery>
+
   <fullquery name="dotlrn_department::select_as_list.select_departments">
     <querytext>
       select pretty_name,