version 1.167, 2003/12/29 21:17:00
|
version 1.168, 2003/12/30 20:47:23
|
Line 3284 sub propath {
|
Line 3284 sub propath {
|
|
|
sub icon { |
sub icon { |
my ($file)=@_; |
my ($file)=@_; |
my @file_ext = split(/\./,$file); |
my $curfext = (split(/\./,$file))[-1]; |
my $curfext = $file_ext[-1]; |
my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif'; |
my $iconname="unknown.gif"; |
|
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
# The unless conditional that follows is a bit of overkill |
if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) { |
$iconname = $curfext.".gif" unless |
if (-e $Apache::lonnet::perlvar{'lonDocRoot'}.'/'. |
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
$Apache::lonnet::perlvar{'lonIconsURL'}.'/'. |
return $Apache::lonnet::perlvar{'lonIconsURL'}."/$iconname"; |
$curfext.".gif") { |
|
$iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/'. |
|
$curfext.".gif"; |
|
} |
|
} |
|
return $iconname; |
} |
} |
|
|
=pod |
=pod |