version 1.45, 2003/11/18 04:08:15
|
version 1.47, 2003/12/05 14:26:25
|
Line 277 sub putdirectory {
|
Line 277 sub putdirectory {
|
unless (( ($dirname eq '..') && ($reqfile eq '')) || |
unless (( ($dirname eq '..') && ($reqfile eq '')) || |
($dirname eq '.')) { |
($dirname eq '.')) { |
$r->print('<tr bgcolor="#CCCCFF">'. |
$r->print('<tr bgcolor="#CCCCFF">'. |
'<td>Go to ...</td>'. |
'<td>'.&mt('Go to ...').'</td>'. |
'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'. |
'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'. |
$disfilename.'</a></td>'. |
$disfilename.'</a></td>'. |
'<td> </td>'. |
'<td> </td>'. |
Line 295 sub putresource {
|
Line 295 sub putresource {
|
$resdir, $targetdir, $linkdir, |
$resdir, $targetdir, $linkdir, |
$cmtime) = @_; |
$cmtime) = @_; |
|
|
my $status='Unpublished'; |
my $status=&mt('Unpublished'); |
my $bgcolor='#FFCCCC'; |
my $bgcolor='#FFCCCC'; |
my $title=' '; |
my $title=' '; |
if (-e $resdir.'/'.$filename) { |
if (-e $resdir.'/'.$filename) { |
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=/~'. |