--- loncom/publisher/lonretrieve.pm	2002/05/30 14:08:42	1.18
+++ loncom/publisher/lonretrieve.pm	2002/10/19 06:34:15	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.18 2002/05/30 14:08:42 www Exp $
+# $Id: lonretrieve.pm,v 1.20 2002/10/19 06:34:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -93,7 +93,7 @@ sub phaseone {
                $r->print(
                     '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.
                         $uname.$fn.
-                        '&versionone=priv&versiontwo='.$version.
+                        '&versiontwo=priv&versiontwo='.$version.
                         '">Diffs with Version '.$version.'</a>');
            }
            $r->print('</a></td></tr>');
@@ -112,7 +112,7 @@ sub phaseone {
                $r->print(
                     '&nbsp;&nbsp;<a target=cat href="/adm/diff?filename=/~'.
                         $uname.$fn.
-                        '&versionone=priv'.
+                        '&versiontwo=priv'.
                         '">Diffs with current Version</a>');
            }
            $r->print('</td></tr></table><p>'.
@@ -215,8 +215,7 @@ sub handler {
 
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
 
-  $r->print(
-   '<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');
+  $r->print(&Apache::loncommon::bodytag('Retrieve Published Resources'));
 
   
   $r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>');
