--- loncom/publisher/lonpublisher.pm	2001/03/29 21:45:06	1.21
+++ loncom/publisher/lonpublisher.pm	2001/04/03 11:07:36	1.22
@@ -631,8 +631,19 @@ if (-e $target) {
     my $thisdistarget=$target;
     $thisdistarget=~s/^$docroot//;
 
+    my $thissrc=$source;
+    $thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/;
+
+    my $thissrcdir=$thissrc;
+    $thissrcdir=~s/\/[^\/]+$/\//;
+
+
     return $scrout.
-	'<p><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>';
+      '<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'.
+      '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.
+      '<p><a href="'.$thissrcdir.
+      '"><font size=+2>Back to Source Directory</font></a>';
+
 }
 
 # ================================================================ Main Handler