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

Diff for /loncom/interface/lonclonecourse.pm between versions 1.1 and 1.4

version 1.1, 2006/08/11 22:00:08 version 1.4, 2008/01/18 17:51:18
Line 84  sub writefile { Line 84  sub writefile {
     my $data = &Apache::lonnet::finishuserfileupload(      my $data = &Apache::lonnet::finishuserfileupload(
   $crsdata{'num'},$crsdata{'domain'},    $crsdata{'num'},$crsdata{'domain'},
   'output',$which);    'output',$which);
     &Apache::lonnet::logthis("gor $data $crsdata{'num'} $crsdata{'domain'}");  
     return $data;      return $data;
 }  }
   
Line 92  sub writefile { Line 91  sub writefile {
   
 sub rewritefile {  sub rewritefile {
     my ($contents,%rewritehash)=@_;      my ($contents,%rewritehash)=@_;
     foreach (keys %rewritehash) {      foreach my $pattern (keys(%rewritehash)) {
  my $pattern=$_;   my $new=$rewritehash{$pattern};
  $pattern=~s/(\W)/\\$1/gs;   $contents=~s/\Q$pattern\E/$new/gs;
  my $new=$rewritehash{$_};  
  $contents=~s/$pattern/$new/gs;  
     }      }
     return $contents;      return $contents;
 }  }
Line 118  sub copyfile { Line 115  sub copyfile {
        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'         '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',      => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
        '/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'         '/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
     => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'      => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
          '/adm/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
       => '/adm/'.$newcrsdata{'domain'}.'/'.$newcrsdata{'num'}.'/',
             )));              )));
     }      }
 }  }
Line 180  sub copyresourcedb { Line 179  sub copyresourcedb {
     }      }
 # adjust symbs  # adjust symbs
     my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';      my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
     $pattern=~s/(\W)/\\$1/gs;  
     my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';      my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
     foreach (keys %data) {      foreach (keys %data) {
  if ($_=~/$pattern/) {   if ($_=~/\Q$pattern\E/) {
     my $newkey=$_;      my $newkey=$_;
     $newkey=~s/$pattern/$new/;      $newkey=~s/\Q$pattern\E/$new/;
     $data{$newkey}=$data{$_};      $data{$newkey}=$data{$_};
     delete $data{$_};      delete $data{$_};
  }   }
Removed from v.1.1  
changed lines
  Added in v.1.4

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