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.14 -r1.15
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	7 Mar 2002 19:02:38 -0000	1.14
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	8 Mar 2002 00:27:05 -0000	1.15
@@ -9,6 +9,11 @@
     {referer ""}
 }
 
+if {![db_0or1row select_class_info {}]} {
+    set class_name ""
+    set class_description ""
+}
+
 form create add_class_instance
 
 element create add_class_instance term \
@@ -22,13 +27,15 @@
     -datatype text \
     -widget text \
     -html {size 60} \
+    -value $class_name \
     -optional
 
 element create add_class_instance description \
     -label "Description" \
     -datatype text \
     -widget textarea \
     -html {rows 5 cols 60 wrap soft} \
+    -value $class_description \
     -optional
 
 element create add_class_instance join_policy \
@@ -81,11 +88,10 @@
     ad_script_abort
 }
 
-set class_name [dotlrn_community::get_community_type_name $class_key]
-
 set context_bar [list \
-        {classes Classes} \
-        [list "class?class_key=$class_key" "$class_name"] \
-        {New Instance}]
+    {classes Classes} \
+    [list "class?class_key=$class_key" "$class_name"] \
+    {New Instance} \
+]
 
 ad_return_template