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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.46 and 1.51

version 1.46, 2003/12/11 17:31:23 version 1.51, 2004/02/24 23:22:27
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (My Desk  ###
 #  
 # (Internal Server Error Handler  
 #  
 # (Login Screen  
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,  
 # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)  
 #  
 # 3/1/1 Gerd Kortemeyer)  
 #  
 # 3/1 Gerd Kortemeyer)  
 #  
 # 2/14,2/16,2/17,7/6 Gerd Kortemeyer  
 #  
 package Apache::loncreatecourse;  package Apache::loncreatecourse;
   
 use strict;  use strict;
Line 402  $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 576  ENDENHEAD Line 564  ENDENHEAD
             }              }
         }          }
     }      }
   # do not hide course coordinator from staff listing, 
   # even if privileged
       $cenv{'nothideprivileged'}=$ccuname.':'.$ccdomain;
     if ($ENV{'form.crsxlist'}) {      if ($ENV{'form.crsxlist'}) {
        $cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'};         $cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'};
        my @xlists = ();         my @xlists = ();
Line 680  ENDENHEAD Line 671  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';
Line 700  ENDENHEAD Line 692  ENDENHEAD
 #  #
 # Set first page  # Set first page
 #  #
     unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')) {      unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')
       || ($cloneid)) {
  $r->print(&mt('Setting first resource').': ');   $r->print(&mt('Setting first resource').': ');
         my ($errtext,$fatal)=          my ($errtext,$fatal)=
            &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');             &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');
Line 739  ENDENHEAD Line 732  ENDENHEAD
  $r->print(   $r->print(
  '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');   '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
     }      }
   # Flush the course logs so reverse user roles immediately updated
       &Apache::lonnet::flushcourselogs();
     $r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>');      $r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>');
 }  }
   
Removed from v.1.46  
changed lines
  Added in v.1.51

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.