version 1.9, 2001/06/23 18:26:40
|
version 1.10, 2001/07/12 21:23:12
|
Line 92 sub handler {
|
Line 92 sub handler {
|
my $dirptr=16384; |
my $dirptr=16384; |
|
|
opendir(DIR,$fn); |
opendir(DIR,$fn); |
while ($filename=readdir(DIR)) { |
my @files=sort(readdir(DIR)); |
|
foreach my$filename (@files) { |
my ($cdev,$cino,$cmode,$cnlink, |
my ($cdev,$cino,$cmode,$cnlink, |
$cuid,$cgid,$crdev,$csize, |
$cuid,$cgid,$crdev,$csize, |
$catime,$cmtime,$cctime, |
$catime,$cmtime,$cctime, |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
$cblksize,$cblocks)=stat($fn.'/'.$filename); |
$filename=~/\.(\w+)$/; |
my $extension=''; |
if (($1 ne 'meta') && (&Apache::lonnet::fileembstyle($1))) { |
if ($filename=~/\.(\w+)$/) { $extension=$1; } |
|
if (($extension ne 'meta') && (&Apache::lonnet::fileembstyle($extension))) { |
my $status='Unpublished'; |
my $status='Unpublished'; |
my $bgcol='#FFBBBB'; |
my $bgcol='#FFBBBB'; |
if (-e $resdir.'/'.$filename) { |
if (-e $resdir.'/'.$filename) { |
Line 134 sub handler {
|
Line 136 sub handler {
|
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename. |
'><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename. |
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
'</a></td><td>'.localtime($cmtime).'</td><td> </td></tr>'); |
} |
} |
|
} else { |
|
#no extension that we know of and not a directory |
|
#just hide it away |
} |
} |
} |
} |
closedir(DIR); |
closedir(DIR); |