[LON-CAPA-cvs] cvs: loncom /publisher lonupload.pm

[albertel]

albertel		Mon Jun 23 17:56:31 2003 EDT

  Modified files:              
    /loncom/publisher	lonupload.pm 
  Log:
  - BUG#1880, nice link for unviewable files that have been uploaded
  
  
Index: loncom/publisher/lonupload.pm
diff -u loncom/publisher/lonupload.pm:1.15 loncom/publisher/lonupload.pm:1.16
--- loncom/publisher/lonupload.pm:1.15	Mon Feb  3 13:03:53 2003
+++ loncom/publisher/lonupload.pm	Mon Jun 23 17:56:31 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Handler to upload files into construction space
 #
-# $Id: lonupload.pm,v 1.15 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lonupload.pm,v 1.16 2003/06/23 21:56:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -195,6 +195,8 @@
 	      $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: '.$!);
 	   }