Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	22 Jan 2002 00:13:09 -0000	1.6
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	22 Jan 2002 23:04:48 -0000	1.7
@@ -6,6 +6,7 @@
     @creation-date 2001-08-20
     @version $Id$
 } -query {
+    {department_key ""}
     {referer "classes"}
 } -properties {
     title:onevalue
@@ -17,11 +18,19 @@
 
 form create add_class
 
-element create add_class department_key \
-    -label "[ad_parameter departments_pretty_name]" \
-    -datatype text \
-    -widget select \
-    -options [dotlrn_department::select_as_list]
+if {[empty_string_p $department_key]} {
+    element create add_class department_key \
+        -label "[ad_parameter departments_pretty_name]" \
+        -datatype text \
+        -widget select \
+        -options [dotlrn_department::select_as_list]
+} else {
+    element create add_class department_key \
+        -label "[ad_parameter departments_pretty_name]" \
+        -datatype text \
+        -widget hidden \
+        -value $department_key
+}
 
 element create add_class class_key \
     -label "[ad_parameter classes_pretty_name] Key (a short name, no spaces)" \