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

[albertel]

albertel		Fri Dec  3 17:29:17 2004 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  - when cloning db files, don't clone the internal.* values BUG#3664
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.71 loncom/interface/loncreatecourse.pm:1.72
--- loncom/interface/loncreatecourse.pm:1.71	Sat Nov 27 12:23:09 2004
+++ loncom/interface/loncreatecourse.pm	Fri Dec  3 17:29:17 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.71 2004/11/27 17:23:09 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.72 2004/12/03 22:29:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -138,6 +138,9 @@
     my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
     my %data=&Apache::lonnet::dump
 	($which,$origcrsdata{'domain'},$origcrsdata{'num'});
+    foreach my $key (keys(%data)) {
+	if ($key=~/^internal./) { delete($data{$key}); }
+    }
     return &Apache::lonnet::put
 	($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
 }