version 1.20, 2003/04/22 21:00:42
|
version 1.23, 2003/06/03 14:36:03
|
Line 240 ENDENHEAD
|
Line 240 ENDENHEAD
|
$envflag=1; |
$envflag=1; |
$cenv{'pch.roles.denied'}='st'; |
$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) { |
if ($envflag) { |
$r->print('Setting environment: '. |
$r->print('Setting environment: '. |
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>'); |
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>'); |