--- 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:

- +

Communication

+

+Disable student resource discussion: + +

Course Coordinator

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').'
'); }