version 1.19, 2003/03/24 14:53:46
|
version 1.26, 2003/07/24 17:53:59
|
Line 107 $helplink
|
Line 107 $helplink
|
<p> |
<p> |
<b>Map:</b> |
<b>Map:</b> |
<input type="text" size="50" name="topmap"> |
<input type="text" size="50" name="topmap"> |
<a href="javascript:openbrowser('ccrs','topmap')">Browse</a> |
<a href="javascript:openbrowser('ccrs','topmap')">Select Map</a> |
</p><p> |
</p><p> |
<b>Do NOT generate as standard course</b> |
<b>Do NOT generate as standard course</b> |
(only check if you know what you are doing): |
(only check if you know what you are doing): |
Line 138 $helplink
|
Line 138 $helplink
|
<h2>Communication</h2> |
<h2>Communication</h2> |
<p> |
<p> |
<b>Disable student resource discussion: </b> |
<b>Disable student resource discussion: </b> |
<input type="checkbox" name="disresdis" /> |
<input type="checkbox" name="disresdis" /> <br /> |
|
<b>Disable student use of chatrooms: </b> |
|
<input type="checkbox" name="disablechat" /> |
</p> |
</p> |
<h2>Access Control</h2> |
<h2>Access Control</h2> |
<p> |
<p> |
Line 240 ENDENHEAD
|
Line 242 ENDENHEAD
|
$envflag=1; |
$envflag=1; |
$cenv{'pch.roles.denied'}='st'; |
$cenv{'pch.roles.denied'}='st'; |
} |
} |
|
if ($ENV{'form.disablechat'}) { |
|
$envflag=1; |
|
$cenv{'plc.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) { |
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>'); |
Line 293 ENDENHEAD
|
Line 311 ENDENHEAD
|
$ccuname.' at '.$ccdomain.': '. |
$ccuname.' at '.$ccdomain.': '. |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
} |
} |
$r->print('Roles will be active at next login.</body></html>'); |
if ($ENV{'form.setkeys'}) { |
|
$r->print( |
|
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>'); |
|
} |
|
$r->print('<p>Roles will be active at next login.</p></body></html>'); |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |