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.7 -r1.8
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	17 Dec 2001 23:02:56 -0000	1.7
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	10 Jan 2002 19:30:18 -0000	1.8
@@ -14,6 +14,9 @@
 element create add_class_instance term \
     -label "Term" -datatype integer -widget select -options [db_list_of_lists select_terms_for_select_widget {}]
 
+element create add_class_instance name \
+    -label "Name" -datatype text -widget text -html {size 50} -optional
+
 element create add_class_instance description \
     -label "Description" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft} -optional
 
@@ -27,9 +30,15 @@
     -label "Referer" -value $referer -datatype text -widget hidden
 
 if {[form is_valid add_class_instance]} {
-    template::form get_values add_class_instance term description join_policy class_key referer
+    template::form get_values add_class_instance class_key term name description join_policy referer
 
-    set class_instance_id [dotlrn_class::new_instance -description $description -class_type $class_key -term_id $term -join_policy $join_policy]
+    set class_instance_id [dotlrn_class::new_instance \
+        -class_type $class_key \
+        -term_id $term \
+        -pretty_name $name \
+        -description $description \
+        -join_policy $join_policy \
+    ]
 
     if {[empty_string_p $referer]} {
         set referer "one-class?class_key=$class_key"