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

[www]

www		Wed Aug 13 14:41:59 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  Bug #1198
  Jay Ihry
  Add "Done" and link when done with directory publishing.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.127 loncom/publisher/lonpublisher.pm:1.128
--- loncom/publisher/lonpublisher.pm:1.127	Thu Jul 24 22:04:51 2003
+++ loncom/publisher/lonpublisher.pm	Wed Aug 13 14:41:59 2003
@@ -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 @@
   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.