[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.20 and 1.26

version 1.20, 2003/04/22 21:00:42 version 1.26, 2003/07/24 17:53:59
Line 107  $helplink Line 107  $helplink
 <p>  <p>
 <b>Map:</b>  <b>Map:</b>
 <input type="text" size="50" name="topmap">  <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>  </p><p>
 <b>Do NOT generate as standard course</b>   <b>Do NOT generate as standard course</b> 
 (only check if you know what you are doing):  (only check if you know what you are doing):
Line 138  $helplink Line 138  $helplink
 <h2>Communication</h2>  <h2>Communication</h2>
 <p>  <p>
 <b>Disable student resource discussion: </b>  <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>  </p>
 <h2>Access Control</h2>  <h2>Access Control</h2>
 <p>  <p>
Line 240  ENDENHEAD Line 242  ENDENHEAD
  $envflag=1;   $envflag=1;
         $cenv{'pch.roles.denied'}='st';          $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) {      if ($envflag) {
        $r->print('Setting environment: '.                          $r->print('Setting environment: '.                 
           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');            &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
Removed from v.1.20  
changed lines
  Added in v.1.26

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>