loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.45, 2003/11/18 04:08:15	version 1.46, 2003/11/19 14:57:32
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 target="_parent" href="/adm/cfile?decompress=/~'.
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?decompress=1" target="_top">'.&mt('Decompress').'</a>)';	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
}	}
$r->print('<tr bgcolor="'.$bgcolor.'">'.	$r->print('<tr bgcolor="'.$bgcolor.'">'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.	'<td><a target="_parent" href="/adm/publish?filename=/~'.