version 1.44, 2003/11/08 10:33:28
|
version 1.45, 2003/11/18 04:08:15
|
Line 337 sub putresource {
|
Line 337 sub putresource {
|
$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)'; |
$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)'; |
} |
} |
if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { |
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>)'; |
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?decompress=1" target="_top">'.&mt('Decompress').'</a>)'; |
} |
} |
$r->print('<tr bgcolor="'.$bgcolor.'">'. |
$r->print('<tr bgcolor="'.$bgcolor.'">'. |