--- loncom/interface/lonclonecourse.pm	2006/08/11 22:00:08	1.1
+++ 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.1 2006/08/11 22:00:08 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;
 }
 
@@ -92,11 +91,9 @@ sub writefile {
 
 sub rewritefile {
     my ($contents,%rewritehash)=@_;
-    foreach (keys %rewritehash) {
-	my $pattern=$_;
-	$pattern=~s/(\W)/\\$1/gs;
-	my $new=$rewritehash{$_};
-	$contents=~s/$pattern/$new/gs;
+    foreach my $pattern (keys(%rewritehash)) {
+	my $new=$rewritehash{$pattern};
+	$contents=~s/\Q$pattern\E/$new/gs;
     }
     return $contents;
 }
@@ -118,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'}.'/',
             )));
     }
 }
@@ -180,12 +179,11 @@ sub copyresourcedb {
     }
 # adjust symbs
     my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
-    $pattern=~s/(\W)/\\$1/gs;
     my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
     foreach (keys %data) {
-	if ($_=~/$pattern/) {
+	if ($_=~/\Q$pattern\E/) {
 	    my $newkey=$_;
-	    $newkey=~s/$pattern/$new/;
+	    $newkey=~s/\Q$pattern\E/$new/;
 	    $data{$newkey}=$data{$_};
 	    delete $data{$_};
 	}