--- loncom/publisher/lonupload.pm	2002/08/24 03:56:58	1.13
+++ loncom/publisher/lonupload.pm	2003/06/23 21:56:31	1.16
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Handler to upload files into construction space
 #
-# $Id: lonupload.pm,v 1.13 2002/08/24 03:56:58 foxr Exp $
+# $Id: lonupload.pm,v 1.16 2003/06/23 21:56:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,6 @@
 #
 # 04/05,04/09,05/25,06/23,06/24,08/22 Gerd Kortemeyer
 # 11/29 Matthew Hall
-# 12/16 Scott Harrison
 #
 ###
 
@@ -59,6 +58,7 @@ use Apache::loncacc;
 use Apache::loncommon();
 use Apache::Log();
 use Apache::lonnet;
+use HTML::Entities();
 
 my $DEBUG=0;
 
@@ -159,7 +159,7 @@ sub phasetwo {
 #     target is the full filesystem path of the destination file.
     my $base = &File::Basename::basename($fn);
     my $path = &File::Basename::dirname($fn);
-    $base    = Apache::lonnet::escape($base);
+    $base    = &HTML::Entities::encode($base);
     my $url  = $path."/".$base; 
     &Debug($r, "URL is now ".$url);
     my $datatoken=$ENV{'form.datatoken'};
@@ -195,6 +195,8 @@ sub phasetwo {
 	      $r->print('File copied.');
               $r->print('<p><font size=+2><a href="'.$url.
                         '">View file</a></font>');
+              $r->print('<p><font size=+2><a href="'.$path.
+                        '">Back to Directory</a></font>');
 	   } else {
               $r->print('Failed to copy: '.$!);
 	   }