[LON-CAPA-cvs] cvs: loncom /interface lonclonecourse.pm

[www]

www		Mon Jan 21 12:47:22 2008 EDT

  Modified files:              
    /loncom/interface	lonclonecourse.pm 
  Log:
  The current mechanism never makes sense
  
  
Index: loncom/interface/lonclonecourse.pm
diff -u loncom/interface/lonclonecourse.pm:1.4 loncom/interface/lonclonecourse.pm:1.5
--- loncom/interface/lonclonecourse.pm:1.4	Fri Jan 18 12:51:18 2008
+++ loncom/interface/lonclonecourse.pm	Mon Jan 21 12:47:21 2008
@@ -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 @@
 
 	$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 @@
 	    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'});
 }