version 1.24, 2003/10/07 20:30:13
|
version 1.25, 2003/12/30 20:47:23
|
Line 351 END
|
Line 351 END
|
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
my $key=$_; |
my $key=$_; |
$ctr++; |
$ctr++; |
my @file_ext = split(/\./,$key); |
my $iconname=&Apache::loncommon::icon($key); |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
|
my $iconname="unknown.gif"; |
|
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
|
# The unless conditional that follows is a bit of overkill |
|
$iconname = $curfext.".gif" unless |
|
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
|
if ($clen > 1) { |
if ($clen > 1) { |
$r->print("<tr><td bgcolor='$fileclr'>"); |
$r->print("<tr><td bgcolor='$fileclr'>"); |
$r->print(&movers($clen,$ctr)); |
$r->print(&movers($clen,$ctr)); |