[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.49

version 1.46, 2003/12/11 17:31:23 version 1.49, 2004/02/02 20:21:25
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 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');
Line 739  ENDENHEAD Line 731  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.49

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