--- loncom/interface/loncreatecourse.pm 2002/09/05 19:37:00 1.13 +++ 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.13 2002/09/05 19:37:00 www Exp $ +# $Id: loncreatecourse.pm,v 1.16 2002/12/23 18:04:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,8 +56,11 @@ sub print_course_creation_page { my %host_servers = &Apache::loncommon::get_library_servers($defdom); my $course_home = '\n"; my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); @@ -131,7 +134,11 @@ $bodytag Set content feedback to Course Coordinator:
- ++Disable student resource discussion: + +
Username:
@@ -219,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).'
');
@@ -251,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').'
');
}