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

Diff for /loncom/interface/lonclonecourse.pm between versions 1.8 and 1.11

version 1.8, 2011/10/17 12:41:30 version 1.11, 2015/06/23 17:49:06
Line 166  sub copyresourcedb { Line 166  sub copyresourcedb {
  $startdate = $start{'default_enrollment_start_date'};   $startdate = $start{'default_enrollment_start_date'};
     }      }
 # ugly retro fix for broken version of types  # ugly retro fix for broken version of types
     foreach my $key (keys %data) {      foreach my $key (keys(%data)) {
  if ($key=~/\wtype$/) {   if ($key=~/\wtype$/) {
     my $newkey=$key;      my $newkey=$key;
     $newkey=~s/type$/\.type/;      $newkey=~s/type$/\.type/;
Line 177  sub copyresourcedb { Line 177  sub copyresourcedb {
 # adjust symbs  # adjust symbs
     my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';      my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
     my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';      my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
     foreach my $key (keys %data) {      foreach my $key (keys(%data)) {
  if ($key=~/\Q$pattern\E/) {   if ($key=~/\Q$pattern\E/) {
     my $newkey=$key;      my $newkey=$key;
     $newkey=~s/\Q$pattern\E/$new/;      $newkey=~s/\Q$pattern\E/$new/;
Line 186  sub copyresourcedb { Line 186  sub copyresourcedb {
  }   }
     }      }
 #  transfer hash  #  transfer hash
     foreach my $key (keys %data) {      foreach my $key (keys(%data)) {
  my $thiskey=$key;   my $thiskey=$key;
  $thiskey=~s/^$origcrsid/$newcrsid/;   $thiskey=~s/^$origcrsid/$newcrsid/;
  $newdata{$thiskey}=$data{$key};   $newdata{$thiskey}=$data{$key};
Line 227  sub copydbfiles { Line 227  sub copydbfiles {
     $origcrs_discussion=~s|/|_|g;      $origcrs_discussion=~s|/|_|g;
     foreach (&crsdirlist($origcrsid)) {      foreach (&crsdirlist($origcrsid)) {
  if ($_=~/\.db$/) {   if ($_=~/\.db$/) {
     unless           unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate
              ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs|groupmembership)/) {                  |resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations
  &copydb($origcrsid,$newcrsid,$_);                  |gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) {
      }              &copydb($origcrsid,$newcrsid,$_);
           }
  }   }
     }      }
 }  }
Removed from v.1.8  
changed lines
  Added in v.1.11

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