version 1.25, 2001/12/04 15:35:39
|
version 1.26, 2001/12/04 18:35:47
|
Line 593 sub display_line {
|
Line 593 sub display_line {
|
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[-1]; |
my $curfext = $file_ext[-1]; |
# Set the icon for the file |
# Set the icon for the file |
my $iconname = "unknownfiletype.gif"; |
my $iconname = "unknown.gif"; |
my $embstyle = &Apache::lonnet::fileembstyle($curfext); |
my $embstyle = &Apache::lonnet::fileembstyle($curfext); |
# The unless conditional that follows is a bit of overkill |
# The unless conditional that follows is a bit of overkill |
$iconname = $curfext.".gif" unless |
$iconname = $curfext.".gif" unless |
(!defined($embstyle) || $embstyle eq 'hdn'); |
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
# |
# |
my $filelink = $startdir.$filecom[0]; |
my $filelink = $startdir.$filecom[0]; |
$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>"); |
$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>"); |