version 1.27, 2001/12/11 03:50:09
|
version 1.28, 2001/12/13 13:38:14
|
Line 40
|
Line 40
|
# 8/14 H. K. Ng |
# 8/14 H. K. Ng |
# 8/28,10/15,11/28,11/29 Scott Harrison |
# 8/28,10/15,11/28,11/29 Scott Harrison |
# 11/30 Matthew Hall |
# 11/30 Matthew Hall |
|
# 12/11,12/13 Scott Harrison |
# |
# |
### |
### |
|
|
Line 489 sub match_ext {
|
Line 490 sub match_ext {
|
my $fext = pop(@filecom); |
my $fext = pop(@filecom); |
my $fnptr = $unpackline[3]&$dirptr; |
my $fnptr = $unpackline[3]&$dirptr; |
if ($fnptr == 0 and $unpackline[3] ne "") { |
if ($fnptr == 0 and $unpackline[3] ne "") { |
my $embstyle = &Apache::lonnet::fileembstyle($fext); |
my $embstyle = &Apache::loncommon::fileembstyle($fext); |
push @trimlist,$line if (defined($embstyle) && |
push @trimlist,$line if (defined($embstyle) && |
$embstyle ne 'hdn' ); |
$embstyle ne 'hdn' ); |
} else { |
} else { |
Line 594 sub display_line {
|
Line 595 sub display_line {
|
my $curfext = $file_ext[-1]; |
my $curfext = $file_ext[-1]; |
# Set the icon for the file |
# Set the icon for the file |
my $iconname = "unknown.gif"; |
my $iconname = "unknown.gif"; |
my $embstyle = &Apache::lonnet::fileembstyle($curfext); |
my $embstyle = &Apache::loncommon::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 'unk' || $embstyle eq 'hdn'); |
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
Line 689 sub display_line {
|
Line 690 sub display_line {
|
if ($hash{'display_attrs_5'} == 1) { |
if ($hash{'display_attrs_5'} == 1) { |
my $lang = &Apache::lonnet::metadata($filelink,'language') |
my $lang = &Apache::lonnet::metadata($filelink,'language') |
if ($metafile == 1); |
if ($metafile == 1); |
$lang = $language{$lang}; |
$lang = &Apache::loncommon::languagedescription($lang); |
$lang = ' ' if (!$lang); |
$lang = ' ' if (!$lang); |
$r->print("<td bgcolor=$fileclr valign=bottom> ".$lang. |
$r->print("<td bgcolor=$fileclr valign=bottom> ".$lang. |
" </td>\n"); |
" </td>\n"); |