![[BACK]](/icons/back.gif){kind=icon}
Return to loncreatecourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncreatecourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.20, 2003/04/22 21:00:42 | version 1.22, 2003/05/04 07:38:32 |
|---|---|
| Line 240 ENDENHEAD | Line 240 ENDENHEAD |
| $envflag=1; | $envflag=1; |
| $cenv{'pch.roles.denied'}='st'; | $cenv{'pch.roles.denied'}='st'; |
| } | } |
| # | |
| # 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>'); |