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.16 -r1.17
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	13 Jan 2005 13:57:21 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	6 Apr 2005 21:29:37 -0000	1.17
@@ -59,6 +59,13 @@
     -html {rows 5 cols 60 wrap soft} \
     -optional
 
+element create add_class subject_key \
+    -label [_ dotlrn.Subject_key] \
+    -datatype text \
+    -widget text \
+    -html {size 60 maxlength 100} \
+    -optional
+
 element create add_class referer \
     -label [_ dotlrn.Referer] \
     -datatype text \
@@ -67,9 +74,10 @@
 
 if {[form is_valid add_class]} {
     form get_values add_class \
-        department_key pretty_name description referer
+        department_key pretty_name description referer subject_key
 
     set class_key [dotlrn_class::new \
+        -class_key $subject_key \
         -department_key $department_key \
         -pretty_name $pretty_name \
         -description $description]