![[BACK]](/icons/back.gif){kind=icon}
Return to loncreatecourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncreatecourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.74, 2004/12/08 23:27:29 | version 1.75, 2005/01/20 16:30:52 |
|---|---|
| Line 193 sub copyresourcedb { | Line 193 sub copyresourcedb { |
| my $thiskey=$_; | my $thiskey=$_; |
| $thiskey=~s/^$origcrsid/$newcrsid/; | $thiskey=~s/^$origcrsid/$newcrsid/; |
| $newdata{$thiskey}=$data{$_}; | $newdata{$thiskey}=$data{$_}; |
| if ($data{$_.'.type'}=~/^date/) { | if ($data{$_.'.type'}=~/^date_(start|end)$/) { |
| $newdata{$thiskey}=$newdata{$thiskey}+$delta; | $newdata{$thiskey}=$newdata{$thiskey}+$delta; |
| } | } |
| } | } |