loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2004/08/25 20:48:04	version 1.67, 2004/09/09 19:24:01
Line 583 ENDENHEAD	Line 583 ENDENHEAD
$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;
delete($cenv{'default_enrollment_start_date'});	delete($cenv{'default_enrollment_start_date'});
Line 758 ENDENHEAD	Line 762 ENDENHEAD
$cenv{'internal.encpref'}=100+int(9*rand(99));	$cenv{'internal.encpref'}=100+int(9*rand(99));
#	#
# By default, use standard grading	# By default, use standard grading
$cenv{'grading'} = 'standard';	if (!defined($cenv{'grading'})) { $cenv{'grading'} = 'standard'; }

$r->print('<br />'.&mt('Setting environment').': '.	$r->print('<br />'.&mt('Setting environment').': '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');	&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');