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

[raeburn]

raeburn		Fri Mar 19 22:15:28 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.955.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.692.4.32 loncom/interface/loncommon.pm:1.692.4.33
--- loncom/interface/loncommon.pm:1.692.4.32	Thu Mar 11 13:42:49 2010
+++ loncom/interface/loncommon.pm	Fri Mar 19 22:15:27 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.4.32 2010/03/11 13:42:49 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.4.33 2010/03/19 22:15:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9591,6 +9591,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