--- loncom/interface/loncommon.pm 2008/02/02 21:45:47 1.636.2.1 +++ loncom/interface/loncommon.pm 2008/01/23 00:37:34 1.638 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.636.2.1 2008/02/02 21:45:47 raeburn Exp $ +# $Id: loncommon.pm,v 1.638 2008/01/23 00:37:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8083,7 +8083,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 @@ -8130,7 +8130,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'} = '';