loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2003/06/16 13:51:46	version 1.26, 2003/07/24 17:53:59
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	# Record we've not yet viewed the Course Initialization Helper for this course
$cenv{'course.helper.not.run'} = 1;	$cenv{'course.helper.not.run'} = 1;
Line 248 ENDENHEAD	Line 254 ENDENHEAD
#	#
$envflag=1;	$envflag=1;
$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;	$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: '.