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.15.6.2 -r1.15.6.3 --- openacs-4/packages/dotlrn/www/admin/class-new.tcl 6 Apr 2005 19:05:41 -0000 1.15.6.2 +++ openacs-4/packages/dotlrn/www/admin/class-new.tcl 9 May 2005 15:34:09 -0000 1.15.6.3 @@ -76,6 +76,11 @@ form get_values add_class \ department_key pretty_name description referer subject_key + # If we do not provide a special subject_key make use of the pretty_name instead + if {[empty_string_p $subject_key]} { + set subject_key $pretty_name + } + set class_key [dotlrn_class::new \ -class_key $subject_key \ -department_key $department_key \