--- loncom/interface/loncreatecourse.pm	2004/11/23 06:58:34	1.70
+++ loncom/interface/loncreatecourse.pm	2004/12/03 22:29:17	1.72
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.70 2004/11/23 06:58:34 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 @@ sub copydb {
     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'});
 }
@@ -613,7 +616,8 @@ ENDENHEAD
                                                $cdescr,$curl,
                                                $ENV{'form.course_home'},
                                                $ENV{'form.nonstandard'},
-                                               $ENV{'form.crscode'});
+                                               $ENV{'form.crscode'},
+                                               $ENV{'form.ccuname'});
 
     # Note: The testing routines depend on this being output; see 
     # Utils::Course. This needs to at least be output as a comment