--- loncom/interface/loncreatecourse.pm 2004/08/25 20:48:04 1.66
+++ loncom/interface/loncreatecourse.pm 2004/09/09 19:24:01 1.67
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.66 2004/08/25 20:48:04 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.67 2004/09/09 19:24:01 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -583,6 +583,10 @@ ENDENHEAD
$cenv{'url'}=$oldcenv{'url'};
# Restore title
$cenv{'description'}=$oldcenv{'description'};
+# restore grading mode
+ if (defined($oldcenv{'grading'})) {
+ $cenv{'grading'}=$oldcenv{'grading'};
+ }
# Mark as cloned
$cenv{'clonedfrom'}=$cloneid;
delete($cenv{'default_enrollment_start_date'});
@@ -758,7 +762,7 @@ ENDENHEAD
$cenv{'internal.encpref'}=100+int(9*rand(99));
#
# By default, use standard grading
- $cenv{'grading'} = 'standard';
+ if (!defined($cenv{'grading'})) { $cenv{'grading'} = 'standard'; }
$r->print('
'.&mt('Setting environment').': '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');