--- loncom/publisher/lonpubdir.pm	2003/11/08 10:33:28	1.44
+++ loncom/publisher/lonpubdir.pm	2003/11/18 04:08:15	1.45
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.44 2003/11/08 10:33:28 albertel Exp $
+# $Id: lonpubdir.pm,v 1.45 2003/11/18 04:08:15 taceyjo1 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -337,6 +337,7 @@ sub putresource {
 	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
     }
     if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
+	&Apache::lonnet::appenv('cgi.file' => $filename);
 	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?decompress=1" target="_top">'.&mt('Decompress').'</a>)';
     }
     $r->print('<tr bgcolor="'.$bgcolor.'">'.