--- loncom/publisher/lonpubdir.pm	2001/08/18 22:01:00	1.12
+++ loncom/publisher/lonpubdir.pm	2001/08/20 13:18:41	1.13
@@ -10,7 +10,7 @@
 # 03/23 Guy Albertelli
 # 03/24,03/29 Gerd Kortemeyer)
 #
-# 03/31,04/03,05/09,06/23,08/18 Gerd Kortemeyer
+# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
 
 package Apache::lonpubdir;
 
@@ -123,6 +123,8 @@ sub handler {
 		       '&versionone=priv" target=cat>Diffs</a>';
 	        }
             }   
+            $status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
+              $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
 	 }
          $r->print('<tr bgcolor='.$bgcol.
          '><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.