--- loncom/interface/loncreatecourse.pm 2003/05/03 21:30:21 1.21 +++ loncom/interface/loncreatecourse.pm 2003/05/04 07:38:32 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.21 2003/05/03 21:30:21 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.22 2003/05/04 07:38:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,10 +127,6 @@ $helplink Open all assessments:
--Use new random seed function: - -
Set course policy feedback to Course Coordinator:
@@ -247,10 +243,9 @@ ENDENHEAD
#
# Use new Randomseed
#
- if ($ENV{'form.rndseed'}) {
- $envflag=1;
- $cenv{'rndseed'}='64bit';
- }
+ $envflag=1;
+ $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
+
if ($envflag) {
$r->print('Setting environment: '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');