loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.636.2.1, 2008/02/02 21:45:47	version 1.637, 2008/01/22 22:37:18
Line 8083 sub construct_course {	Line 8083 sub construct_course {
$outcome .= $clonemsg.$linefeed;	$outcome .= $clonemsg.$linefeed;
my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);	my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);
# Copy all files	# Copy all files
&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid);	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},$args->{'dateshift'});
# Restore URL	# Restore URL
$cenv{'url'}=$oldcenv{'url'};	$cenv{'url'}=$oldcenv{'url'};
# Restore title	# Restore title
$cenv{'description'}=$oldcenv{'description'};	$cenv{'description'}=$oldcenv{'description'};
	# restore grading mode
	if (defined($oldcenv{'grading'})) {
	$cenv{'grading'}=$oldcenv{'grading'};
	}
# Mark as cloned	# Mark as cloned
$cenv{'clonedfrom'}=$cloneid;	$cenv{'clonedfrom'}=$cloneid;
# Need to clone grading mode	delete($cenv{'default_enrollment_start_date'});
my %newenv=&Apache::lonnet::get('environment',['grading'],$$crsudom,$$crsunum);	delete($cenv{'default_enrollment_end_date'});
$cenv{'grading'}=$newenv{'grading'};
# Do not clone these environment entries
&Apache::lonnet::del('environment',
['default_enrollment_start_date',
'default_enrollment_end_date',
'question.email',
'policy.email',
'comment.email',
'pch.users.denied',
'plc.users.denied'],
$$crsudom,$$crsunum);
}	}

#	#