--- loncom/publisher/lonpublisher.pm	2002/10/08 13:24:36	1.101
+++ loncom/publisher/lonpublisher.pm	2002/10/10 15:05:36	1.102
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.101 2002/10/08 13:24:36 www Exp $
+# $Id: lonpublisher.pm,v 1.102 2002/10/10 15:05:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1226,6 +1226,9 @@ the server's attempts at publication.
 sub phasetwo {
 
     my ($r,$source,$target,$style,$distarget,$batch)=@_;
+    $source=~s/\/+/\//g;
+    $target=~s/\/+/\//g;
+    $distarget=~s/\/+/\//g;
     my $logfile;
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
 	return 
@@ -1469,6 +1472,8 @@ sub phasetwo {
 
 sub batchpublish {
     my ($r,$srcfile,$targetfile)=@_;
+    $srcfile=~s/\/+/\//g;
+    $targetfile=~s/\/+/\//g;
     my $thisdisfn=$srcfile;
     $thisdisfn=~s/\/home\/korte\/public_html\///;
     $srcfile=~s/\/+/\//g;
@@ -1506,6 +1511,8 @@ sub batchpublish {
 
 sub publishdirectory {
     my ($r,$fn,$thisdisfn)=@_;
+    $fn=~s/\/+/\//g;
+    $thisdisfn=~s/\/+/\//g;
     my $resdir=
     $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$cudom.'/'.$cuname.'/'.
       $thisdisfn;