--- loncom/interface/loncreatecourse.pm	2004/02/27 17:53:05	1.52
+++ loncom/interface/loncreatecourse.pm	2004/04/16 13:33:41	1.54
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.52 2004/02/27 17:53:05 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.54 2004/04/16 13:33:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -546,6 +546,8 @@ ENDENHEAD
 	    $cenv{'description'}=$oldcenv{'description'};
 # Mark as cloned
 	    $cenv{'clonedfrom'}=$cloneid;
+	    delete($cenv{'default_enrollment_start_date'});
+	    delete($cenv{'default_enrollment_end_date'});
 	}
     }
 #
@@ -682,6 +684,11 @@ ENDENHEAD
     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
     $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;
     #
+    # The encryption code and receipt prefix for this course
+    #
+    $cenv{'internal.encseed'}=$Apache::lonnet::perlvar{'lonReceipt'}.$$.time.int(rand(9999));
+    $cenv{'internal.encpref'}=100+int(9*rand(99));
+    #
     # By default, use standard grading
     $cenv{'grading'} = 'standard';