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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.86 and 1.89

version 1.86, 2006/03/21 18:34:23 version 1.89, 2006/05/30 12:46:09
Line 38  use Apache::londocs; Line 38  use Apache::londocs;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::londropadd;  use Apache::londropadd;
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
   use LONCAPA;
   
 # ================================================ Get course directory listing  # ================================================ Get course directory listing
   
Line 57  sub innercrsdirlist { Line 58  sub innercrsdirlist {
     my %crsdata=&Apache::lonnet::coursedescription($courseid);      my %crsdata=&Apache::lonnet::coursedescription($courseid);
     my @listing=&Apache::lonnet::dirlist      my @listing=&Apache::lonnet::dirlist
  ($which,$crsdata{'domain'},$crsdata{'num'},   ($which,$crsdata{'domain'},$crsdata{'num'},
  &Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'}));   &propath($crsdata{'domain'},$crsdata{'num'}));
     foreach (@listing) {      foreach (@listing) {
  unless ($_=~/^\./) {   unless ($_=~/^\./) {
     my @unpackline = split (/\&/,$_);      my @unpackline = split (/\&/,$_);
Line 234  sub copydbfiles { Line 235  sub copydbfiles {
     foreach (&crsdirlist($origcrsid)) {      foreach (&crsdirlist($origcrsid)) {
  if ($_=~/\.db$/) {   if ($_=~/\.db$/) {
     unless       unless 
              ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|(grading|review)queue|CODEs)/) {               ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs)/) {
  &copydb($origcrsid,$newcrsid,$_);   &copydb($origcrsid,$newcrsid,$_);
  my $histfile=$_;   my $histfile=$_;
  $histfile=~s/\.db$/\.hist/;   $histfile=~s/\.db$/\.hist/;
Line 706  sub create_course { Line 707  sub create_course {
 # Flush the course logs so reverse user roles immediately updated  # Flush the course logs so reverse user roles immediately updated
     &Apache::lonnet::flushcourselogs();      &Apache::lonnet::flushcourselogs();
     $r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.      $r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.
         '<p><a href="/adm/createcourse">'.
         &mt('Create Another Course').'</a></p>'.
       &Apache::loncommon::end_page());        &Apache::loncommon::end_page());
 }  }
   
Removed from v.1.86  
changed lines
  Added in v.1.89

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