Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	29 May 2003 18:05:01 -0000	1.46
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	22 Sep 2003 18:31:41 -0000	1.47
@@ -105,6 +105,7 @@
     }
 
     ad_proc -public new {
+	{-class_key ""}
         {-department_key:required}
         {-pretty_name:required}
         {-description ""}
@@ -119,7 +120,9 @@
         This class can then be instantiated for a particular semester.
     } {
 
-        set class_key [dotlrn::generate_key -name $pretty_name]
+	if [empty_string_p $class_key] {
+	    set class_key [dotlrn::generate_key -name $pretty_name]
+	}
         
         # check if the name is already in use, if so, complain loudly
         if {![check_class_key_valid_p \