loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.636, 2008/01/21 00:35:58
+version 1.636.2.1, 2008/02/02 21:45:47
  Line 8088  sub construct_course {
  	$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'});
+ # Need to clone grading mode
- 	delete($cenv{'default_enrollment_end_date'});
+         my %newenv=&Apache::lonnet::get('environment',['grading'],$$crsudom,$$crsunum);
+         $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);
      }
  #