--- loncom/interface/loncreatecourse.pm 2003/04/22 21:00:42 1.20 +++ 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.20 2003/04/22 21:00:42 www Exp $ +# $Id: loncreatecourse.pm,v 1.27 2003/08/07 14:28:49 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -107,7 +107,7 @@ $helplink <p> <b>Map:</b> <input type="text" size="50" name="topmap"> -<a href="javascript:openbrowser('ccrs','topmap')">Browse</a> +<a href="javascript:openbrowser('ccrs','topmap')">Select Map</a> </p><p> <b>Do NOT generate as standard course</b> (only check if you know what you are doing): @@ -138,7 +138,9 @@ $helplink <h2>Communication</h2> <p> <b>Disable student resource discussion: </b> -<input type="checkbox" name="disresdis" /> +<input type="checkbox" name="disresdis" /> <br /> +<b>Disable student use of chatrooms: </b> +<input type="checkbox" name="disablechat" /> </p> <h2>Access Control</h2> <p> @@ -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.'<br>'); # # Check if created correctly @@ -240,6 +246,22 @@ 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; + # + # Use new Randomseed + # + $envflag=1; + $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; + # + # By default, use standard grading + $cenv{'grading'} = 'standard'; + if ($envflag) { $r->print('Setting environment: '. &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');