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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.18 and 1.21

version 1.18, 2003/03/24 14:45:09 version 1.21, 2003/05/03 21:30:21
Line 127  $helplink Line 127  $helplink
 <b>Open all assessments: </b>  <b>Open all assessments: </b>
 <input type="checkbox" name="openall" checked>  <input type="checkbox" name="openall" checked>
 </p>  </p>
   <p>
   <b>Use new random seed function: </b>
   <input type="checkbox" name="rndseed" checked>
   </p>
 <h2>Messaging</h2>  <h2>Messaging</h2>
 <p>  <p>
 <b>Set course policy feedback to Course Coordinator: </b>  <b>Set course policy feedback to Course Coordinator: </b>
Line 231  ENDENHEAD Line 235  ENDENHEAD
            $envflag=1;             $envflag=1;
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;             $cenv{'question.email'}=$ccuname.':'.$ccdomain;
        }         }
        if ($ENV{'form.keys'}) {  
            $envflag=1;  
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;  
        }  
     }      }
     if ($ENV{'form.setkeys'}) {      if ($ENV{'form.setkeys'}) {
        $envflag=1;         $envflag=1;
Line 244  ENDENHEAD Line 244  ENDENHEAD
  $envflag=1;   $envflag=1;
         $cenv{'pch.roles.denied'}='st';          $cenv{'pch.roles.denied'}='st';
     }      }
       #
       # Use new Randomseed
       #
       if ($ENV{'form.rndseed'}) {
    $envflag=1;
    $cenv{'rndseed'}='64bit';
       }
     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>');
Line 297  ENDENHEAD Line 304  ENDENHEAD
                $ccuname.' at '.$ccdomain.': '.                 $ccuname.' at '.$ccdomain.': '.
     &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');      &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>');
    }     }
     $r->print('Roles will be active at next login.</body></html>');      if ($ENV{'form.setkeys'}) {
    $r->print(
    '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>');
       }
       $r->print('<p>Roles will be active at next login.</p></body></html>');
 }  }
   
 # ===================================================================== Handler  # ===================================================================== Handler
Removed from v.1.18  
changed lines
  Added in v.1.21

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