--- loncom/interface/loncreatecourse.pm	2004/02/27 17:53:05	1.52
+++ loncom/interface/loncreatecourse.pm	2004/03/30 20:46:24	1.53
@@ -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.53 2004/03/30 20:46:24 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -682,6 +682,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';