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 -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	22 Jan 2002 23:04:48 -0000	1.7
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	16 Mar 2002 17:38:08 -0000	1.8
@@ -32,12 +32,6 @@
         -value $department_key
 }
 
-element create add_class class_key \
-    -label "[ad_parameter classes_pretty_name] Key (a short name, no spaces)" \
-    -datatype text \
-    -widget text \
-    -html {size 60}
-
 element create add_class pretty_name \
     -label "Name" \
     -datatype text \
@@ -59,10 +53,9 @@
 
 if {[form is_valid add_class]} {
     form get_values add_class \
-        department_key class_key pretty_name description referer
+        department_key pretty_name description referer
 
     set class_key [dotlrn_class::new \
-        -class_key $class_key \
         -department_key $department_key \
         -pretty_name $pretty_name \
         -description $description]