--- loncom/interface/loncommon.pm	2020/05/22 21:56:54	1.1075.2.127.6.3
+++ loncom/interface/loncommon.pm	2020/06/03 11:50:17	1.1075.2.127.6.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.127.6.3 2020/05/22 21:56:54 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.127.6.4 2020/06/03 11:50:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14917,7 +14917,8 @@ sub construct_course {
 	$outcome .= $clonemsg.$linefeed;
 	my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);
 # Copy all files
-	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},$args->{'dateshift'});
+	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},
+	                                         $args->{'dateshift'},$args->{'crscode'});
 # Restore URL
 	$cenv{'url'}=$oldcenv{'url'};
 # Restore title