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