--- loncom/interface/loncreatecourse.pm 2004/12/08 23:27:29 1.74 +++ loncom/interface/loncreatecourse.pm 2005/01/20 16:30:52 1.75 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.74 2004/12/08 23:27:29 raeburn Exp $ +# $Id: loncreatecourse.pm,v 1.75 2005/01/20 16:30:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -193,7 +193,7 @@ sub copyresourcedb { my $thiskey=$_; $thiskey=~s/^$origcrsid/$newcrsid/; $newdata{$thiskey}=$data{$_}; - if ($data{$_.'.type'}=~/^date/) { + if ($data{$_.'.type'}=~/^date_(start|end)$/) { $newdata{$thiskey}=$newdata{$thiskey}+$delta; } }