--- loncom/interface/loncreatecourse.pm 2003/03/24 14:45:09 1.18 +++ loncom/interface/loncreatecourse.pm 2003/06/16 13:51:46 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.18 2003/03/24 14:45:09 www Exp $ +# $Id: loncreatecourse.pm,v 1.24 2003/06/16 13:51:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -107,7 +107,7 @@ $helplink
Map: -Browse +Select Map
Do NOT generate as standard course
(only check if you know what you are doing):
@@ -231,10 +231,6 @@ ENDENHEAD
$envflag=1;
$cenv{'question.email'}=$ccuname.':'.$ccdomain;
}
- if ($ENV{'form.keys'}) {
- $envflag=1;
- $cenv{'question.email'}=$ccuname.':'.$ccdomain;
- }
}
if ($ENV{'form.setkeys'}) {
$envflag=1;
@@ -244,6 +240,15 @@ ENDENHEAD
$envflag=1;
$cenv{'pch.roles.denied'}='st';
}
+
+ # Record we've not yet viewed the Course Initialization Helper for this course
+ $cenv{'course.helper.not.run'} = 1;
+ #
+ # Use new Randomseed
+ #
+ $envflag=1;
+ $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
+
if ($envflag) {
$r->print('Setting environment: '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');
@@ -297,7 +302,11 @@ ENDENHEAD
$ccuname.' at '.$ccdomain.': '.
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'
'); } - $r->print('Roles will be active at next login.