--- loncom/publisher/lonpublisher.pm	2003/07/25 02:04:51	1.127
+++ loncom/publisher/lonpublisher.pm	2003/08/13 18:41:59	1.128
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.127 2003/07/25 02:04:51 bowersj2 Exp $
+# $Id: lonpublisher.pm,v 1.128 2003/08/13 18:41:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1744,6 +1744,10 @@ unless ($ENV{'form.phase'} eq 'two') {
   if ($fn=~/\/$/) {
 # -------------------------------------------------------- This is a directory
       &publishdirectory($r,$fn,$thisdisfn);
+      $r->print('<hr><font size="+2">Done</font><br><a href="/priv/'
+		.$cuname.'/'.$thisdisfn
+		.'">Return to Directory</a>');
+
 
   } else {
 # ---------------------- Evaluate individual file, and then output information.