Index: openacs-4/packages/dotlrn/tcl/department-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/department-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/department-procs.tcl	12 Nov 2002 08:44:05 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/department-procs.tcl	22 Sep 2003 18:31:41 -0000	1.11
@@ -25,14 +25,17 @@
 namespace eval dotlrn_department {
 
     ad_proc -public new {
+	{-department_key ""}
         {-pretty_name:required}
         {-description ""}
         {-external_url ""}
     } {
         Create a new department.
     } {
 
-        set department_key [dotlrn::generate_key -name $pretty_name]
+	if [empty_string_p $department_key] {
+	    set department_key [dotlrn::generate_key -name $pretty_name]
+	}
         
         # check if the name is already in use, if so, complain loudly
         if {![check_department_key_valid_p \