Return to lonclonecourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.13, 2019/06/29 23:21:05 | version 1.13.2.1, 2020/07/24 18:06:24 |
---|---|
Line 107 sub rewritefile { | Line 107 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 { |