--- loncom/publisher/lonretrieve.pm	2003/09/22 15:39:53	1.23
+++ loncom/publisher/lonretrieve.pm	2004/07/02 09:41:07	1.25
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.23 2003/09/22 15:39:53 www Exp $
+# $Id: lonretrieve.pm,v 1.25 2004/07/02 09:41:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -94,7 +94,7 @@ sub phaseone {
                $r->print(
                     '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.
                         $uname.$fn.
-                        '&versiontwo=priv&versiontwo='.$version.
+                        '&versiontwo=priv&versionone='.$version.
                         '">'.&mt('Diffs with Version').' '.$version.'</a>');
            }
            $r->print('</a></td></tr>');
@@ -123,6 +123,8 @@ sub phaseone {
 } else {
     $r->print('<h3>'.&mt('No previous versions published.').'</h3>');
 }
+    $r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn.
+	      '</a></p>'); 
 }
 
 # ---------------------------------- Interface for presenting specified version