Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Jan 2005 13:57:21 -0000	1.25
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	6 Apr 2005 21:29:37 -0000	1.26
@@ -76,6 +76,14 @@
     -options [list [list [_ dotlrn.Yes] 1] [list [_ dotlrn.No] 0]] \
     -value 1
 
+element create add_class_instance class_instance_key \
+    -label [_ dotlrn.Class_instance_key] \
+    -datatype text \
+    -widget text \
+    -html {size 60} \
+    -value "" \
+    -optional
+
 element create add_class_instance referer \
     -label [_ dotlrn.Referer] \
     -datatype text \
@@ -84,9 +92,10 @@
 
 if {[form is_valid add_class_instance]} {
     form get_values add_class_instance \
-        class_key term pretty_name description join_policy add_instructor referer
+        class_key term pretty_name description join_policy add_instructor referer class_instance_key
 
     set class_instance_id [dotlrn_class::new_instance \
+        -class_instance_key $class_instance_key \
         -class_key $class_key \
         -term_id $term \
         -pretty_name $pretty_name \
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.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]
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]