--- loncom/interface/loncommon.pm	2008/02/02 22:10:22	1.636.2.2
+++ loncom/interface/loncommon.pm	2008/02/01 23:03:13	1.639
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.636.2.2 2008/02/02 22:10:22 raeburn Exp $
+# $Id: loncommon.pm,v 1.639 2008/02/01 23:03:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8087,7 +8087,7 @@ sub construct_course {
 	$outcome .= $clonemsg.$linefeed;
 	my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);
 # Copy all files
-	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid);
+	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},$args->{'dateshift'});
 # Restore URL
 	$cenv{'url'}=$oldcenv{'url'};
 # Restore title
@@ -8134,7 +8134,6 @@ sub construct_course {
     } else {
         $cenv{'internal.courseowner'} = $args->{'curruser'};
     }
-
     my @badclasses = (); # Used to accumulate sections/crosslistings that did not pass classlist access check for course owner.
     if ($args->{'crssections'}) {
         $cenv{'internal.sectionnums'} = '';