|
version 1.155, 2003/11/17 15:14:48
|
version 1.156, 2003/11/17 20:53:28
|
|
Line 3210 sub propath {
|
Line 3210 sub propath {
|
| return $proname; |
return $proname; |
| } |
} |
| |
|
| |
sub icon { |
| |
my ($file)=@_; |
| |
my @file_ext = split(/\./,$file); |
| |
my $curfext = $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'); |
| |
return $Apache::lonnet::perlvar{'lonIconsURL'}."/$iconname"; |
| |
} |
| |
|
| =pod |
=pod |
| |
|
| =back |
=back |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface