Index: openacs-4/packages/dotlrn/www/admin/department-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-new.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/admin/department-new.tcl	13 Jan 2005 13:57:21 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/department-new.tcl	6 Apr 2005 21:29:37 -0000	1.10
@@ -55,6 +55,13 @@
     -html {size 60} \
     -optional
 
+element create add_department department_key \
+    -label "[_ dotlrn.Department_key]" \
+    -datatype text \
+    -widget text \
+    -html {size 60} \
+    -optional
+
 element create add_department referer \
     -label "[_ dotlrn.Referer]" \
     -datatype text \
@@ -63,9 +70,10 @@
 
 if {[form is_valid add_department]} {
     form get_values add_department \
-         pretty_name description external_url referer
+         pretty_name description external_url referer department_key
 
     set department_key [dotlrn_department::new \
+        -department_key $department_key \
         -pretty_name $pretty_name \
         -description $description \
         -external_url $external_url]