[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Wed Mar 17 20:00:02 2010 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - During course creation, creation date, creator and creation context
    should not be overwritten with values from cloned course, if cloning.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.954 loncom/interface/loncommon.pm:1.955
--- loncom/interface/loncommon.pm:1.954	Wed Mar 17 19:35:56 2010
+++ loncom/interface/loncommon.pm	Wed Mar 17 20:00:02 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.954 2010/03/17 19:35:56 raeburn Exp $
+# $Id: loncommon.pm,v 1.955 2010/03/17 20:00:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10209,6 +10209,10 @@
 	$cenv{'url'}=$oldcenv{'url'};
 # Restore title
 	$cenv{'description'}=$oldcenv{'description'};
+# Restore creation date, creator and creation context.
+        $cenv{'internal.created'}=$oldcenv{'internal.created'};
+        $cenv{'internal.creator'}=$oldcenv{'internal.creator'};
+        $cenv{'internal.creationcontext'}=$oldcenv{'internal.creationcontext'};
 # Mark as cloned
 	$cenv{'clonedfrom'}=$cloneid;
 # Need to clone grading mode