--- loncom/interface/lonindexer.pm 2003/12/22 19:30:25 1.83 +++ loncom/interface/lonindexer.pm 2003/12/30 20:47:23 1.84 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.83 2003/12/22 19:30:25 www Exp $ +# $Id: lonindexer.pm,v 1.84 2003/12/30 20:47:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -793,12 +793,7 @@ sub display_line { return OK if ($skip > 0); } # Set the icon for the file - 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'); - # + my $iconname = &Apache::loncommon::icon($listname); $r->print(""); my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list; my $title; @@ -854,7 +849,7 @@ sub display_line { ".gif border='0' />\n") if $rem > 0; } - $r->print("\n"); + $r->print("\n"); $r->print (" $listname "); @@ -930,8 +925,6 @@ sub display_line { # -- display directory if ($fnptr == $dirptr) { - my @file_ext = split (/\./,$listname); - my $curfext = $file_ext[scalar(@file_ext)-1]; my $curdir = $startdir.$filecom[0].'/'; my $anchor = $curdir; $anchor =~ s/\///g;