--- loncom/interface/loncreatecourse.pm 2002/09/26 15:19:39 1.14 +++ 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.14 2002/09/26 15:19:39 matthew 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).'
');
@@ -254,7 +262,7 @@ ENDENHEAD
$url='/adm/navmaps';
}
$Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
- my ($errtext,$fatal)=
+ ($errtext,$fatal)=
&Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
$r->print(($fatal?$errtext:'write ok').'
');
}