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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.49 and 1.52

version 1.49, 2004/02/02 20:21:25 version 1.52, 2004/02/27 17:53:05
Line 390  $lt{'asov'}. Line 390  $lt{'asov'}.
 <h2>$lt{'assp'}</h2>  <h2>$lt{'assp'}</h2>
 <p>  <p>
 <b>$lt{'oaas'}: </b>  <b>$lt{'oaas'}: </b>
 <input type="checkbox" name="openall" checked>  <input type="checkbox" name="openall" />
 </p>  </p>
 <h2>$lt{'mssg'}</h2>  <h2>$lt{'mssg'}</h2>
 <p>  <p>
Line 483  ENDENHEAD Line 483  ENDENHEAD
     #      #
     # Check the veracity of the course coordinator      # Check the veracity of the course coordinator
     if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {      if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {
         $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'</body></html>');   $r->print('<form action="/adm/createuser" method="post" name="crtuser">');
           $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'.<br />');
    $r->print(&mt("Please click Back on your browser and select another user, or "));
    $r->print('
       <input type="hidden" name="phase" value="get_user_info" />
               <input type="hidden" name="ccuname" value="'.$ccuname.'" />
               <input type="hidden" name="ccdomain" value="'.$ccdomain.'" />
               <input name="userrole" type="submit" value="'.
     &mt('Create User').'" />
    </form></body></html>');
  return;   return;
     }      }
     # Check the proposed home server for the course      # Check the proposed home server for the course
Line 671  ENDENHEAD Line 680  ENDENHEAD
     # Use new Randomseed      # Use new Randomseed
     #      #
     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;      $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
       $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;
     #      #
     # By default, use standard grading      # By default, use standard grading
     $cenv{'grading'} = 'standard';      $cenv{'grading'} = 'standard';
Removed from v.1.49  
changed lines
  Added in v.1.52

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