--- loncom/interface/loncreatecourse.pm 2002/12/09 21:32:34 1.15 +++ loncom/interface/loncreatecourse.pm 2002/12/23 18:04:54 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.15 2002/12/09 21:32:34 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.16 2002/12/23 18:04:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -134,7 +134,11 @@ $bodytag Set content feedback to Course Coordinator:
- ++Disable student resource discussion: + +
Username:
@@ -222,6 +226,10 @@ ENDENHEAD
$cenv{'question.email'}=$ccuname.':'.$ccdomain;
}
}
+ if ($ENV{'form.disresdis'}) {
+ $envflag=1;
+ $cenv{'pch.roles.denied'}='st';
+ }
if ($envflag) {
$r->print('Setting environment: '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');