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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.47 and 1.50

version 1.47, 2004/01/01 02:16:29 version 1.50, 2004/02/13 15:24:00
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 700  ENDENHEAD Line 691  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');
Removed from v.1.47  
changed lines
  Added in v.1.50

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