--- loncom/publisher/loncfile.pm	2002/10/28 23:23:41	1.19
+++ loncom/publisher/loncfile.pm	2002/11/27 17:05:50	1.20
@@ -10,7 +10,7 @@
 # 
 
 #
-# $Id: loncfile.pm,v 1.19 2002/10/28 23:23:41 albertel Exp $
+# $Id: loncfile.pm,v 1.20 2002/11/27 17:05:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1017,7 +1017,7 @@ sub phasetwo {
 	# Once a resource is deleted, we just list the directory that
 	# previously held it.
 	#
-	$dest = $dir."/";		# Parent dir.
+	$dest = $dir."/.";		# Parent dir.
     } elsif ($ENV{'form.action'} eq 'copy') { 
 	if($ENV{'form.newfilename'}) {
 	    if(!&Copy2($r, $uname, $dir, $fn, $ENV{'form.newfilename'})) {
@@ -1046,11 +1046,12 @@ sub phasetwo {
     # construction space path.
     #
     &Debug($r, "Final url is: $dest");
-    $dest =~ s/\/home\//\/priv\//;
-    $dest =~ s/\/public_html//;
+    $dest =~ s|/home/|/priv/|;
+    $dest =~ s|/public_html||;
     
     my $base = &File::Basename::basename($dest);
     my $dpath= &File::Basename::dirname($dest);
+    if ($base eq '.') { $base=''; }
     $dest = &HTML::Entities::encode($dpath.'/'.$base);