--- loncom/publisher/loncfile.pm	2001/06/24 18:09:38	1.5
+++ loncom/publisher/loncfile.pm	2001/06/24 18:21:09	1.6
@@ -164,6 +164,8 @@ sub phasetwo {
         unless (mkdir($newdir,0770)) {
 	    $r->print('<font color=red>Error: '.$!.'</font>');
         }
+        $r->print('<h3><a href="/priv/'.$uname.$fn.'/">Done</a></h3>');
+        return;
     }
     $r->print('<h3><a href="/priv/'.$uname.$dir.'/">Done</a></h3>');
 }