--- loncom/interface/loncreatecourse.pm 2003/03/24 14:45:09 1.18 +++ loncom/interface/loncreatecourse.pm 2003/07/17 15:16:45 1.25 @@ -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.25 2003/07/17 15:16:45 matthew 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,18 @@ 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();; + # + # By default, use standard grading + $cenv{'grading'} = 'standard'; + if ($envflag) { $r->print('Setting environment: '. &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
'); @@ -297,7 +305,11 @@ ENDENHEAD $ccuname.' at '.$ccdomain.': '. &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'

'); } - $r->print('Roles will be active at next login.'); + if ($ENV{'form.setkeys'}) { + $r->print( + '

Manage Access Keys

'); + } + $r->print('

Roles will be active at next login.

'); } # ===================================================================== Handler