![[BACK]](/icons/back.gif){kind=icon}
Return to lonclonecourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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 { |