--- loncom/interface/lonclonecourse.pm	2006/08/11 22:00:08	1.1
+++ loncom/interface/lonclonecourse.pm	2006/12/05 01:36:13	1.2
@@ -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.2 2006/12/05 01:36:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,11 +92,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;
 }
@@ -180,12 +178,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{$_};
 	}