--- loncom/interface/lonclonecourse.pm	2006/12/05 01:36:13	1.2
+++ loncom/interface/lonclonecourse.pm	2008/01/18 17:51:18	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.2 2006/12/05 01:36:13 albertel Exp $
+# $Id: lonclonecourse.pm,v 1.4 2008/01/18 17:51:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -84,7 +84,6 @@ sub writefile {
     my $data = &Apache::lonnet::finishuserfileupload(
 					  $crsdata{'num'},$crsdata{'domain'},
 					  'output',$which);
-    &Apache::lonnet::logthis("gor $data $crsdata{'num'} $crsdata{'domain'}");
     return $data;
 }
 
@@ -116,7 +115,9 @@ sub copyfile {
        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
        '/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
-    => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'
+    => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
+       '/adm/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
+    => '/adm/'.$newcrsdata{'domain'}.'/'.$newcrsdata{'num'}.'/',
             )));
     }
 }