loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>");