--- loncom/interface/loncreatecourse.pm 2003/07/17 15:16:45 1.25 +++ loncom/interface/loncreatecourse.pm 2003/08/07 14:28:49 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.25 2003/07/17 15:16:45 matthew Exp $ +# $Id: loncreatecourse.pm,v 1.27 2003/08/07 14:28:49 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,7 +138,9 @@ $helplink
Disable student resource discussion:
-
+
+Disable student use of chatrooms:
+
@@ -206,6 +208,10 @@ ENDENHEAD
$ENV{'form.course_home'},
$ENV{'form.nonstandard'});
+ # Note: The testing routines depend on this being output; see
+ # Utils::Course. This needs to at least be output as a comment
+ # if anyone ever decides to not show this, and Utils::Course::new
+ # will need to be suitably modified.
$r->print('New LON-CAPA Course ID: '.$courseid.'
');
#
# Check if created correctly
@@ -240,6 +246,10 @@ ENDENHEAD
$envflag=1;
$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
$cenv{'course.helper.not.run'} = 1;