Return to lonclonecourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.15, 2020/07/01 20:08:54 | version 1.16, 2020/07/23 18:03:10 |
---|---|
Line 108 sub rewritefile { | Line 108 sub rewritefile { |
sub copyfile { | sub copyfile { |
my ($origcrsid,$newcrsid,$which)=@_; | my ($origcrsid,$newcrsid,$which)=@_; |
unless ($which=~/\.sequence$/) { | unless ($which=~/\.(page|sequence)$/) { |
return &writefile($newcrsid,$which, | return &writefile($newcrsid,$which, |
&readfile($origcrsid,$which)); | &readfile($origcrsid,$which)); |
} else { | } else { |