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>'); |