--- loncom/interface/lonclonecourse.pm	2008/01/18 17:51:18	1.4
+++ loncom/interface/lonclonecourse.pm	2008/01/21 17:47:21	1.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.4 2008/01/18 17:51:18 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.5 2008/01/21 17:47:21 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -161,13 +161,6 @@ sub copyresourcedb {
 
 	$startdate = $start{'default_enrollment_start_date'};
     }
-    my $today=time;
-    my $delta=0;
-    if ($startdate) {
-	my $oneday=60*60*24;
-	$delta=$today-$startdate;
-	$delta=int($delta/$oneday)*$oneday;
-    }
 # ugly retro fix for broken version of types
     foreach (keys %data) {
 	if ($_=~/\wtype$/) {
@@ -188,21 +181,6 @@ sub copyresourcedb {
 	    delete $data{$_};
 	}
     }
-# adjust dates
-    foreach (keys %data) {
-	my $thiskey=$_;
-	$thiskey=~s/^$origcrsid/$newcrsid/;
-	$newdata{$thiskey}=$data{$_};
-	if ($data{$_.'.type'}=~/^date_(start|end)$/) {
-	    if ($delta > 0) {
-		$newdata{$thiskey}=$newdata{$thiskey}+$delta;
-	    } else {
-		# no delta, it's unlikely we want the old dates and times
-		delete($newdata{$thiskey});
-		delete($newdata{$thiskey.'.type'});
-	    }
-	}
-    }
     return &Apache::lonnet::put
 	('resourcedata',\%newdata,$newcrsdata{'domain'},$newcrsdata{'num'});
 }