--- loncom/interface/lonindexer.pm 2003/12/22 19:30:25 1.83 +++ loncom/interface/lonindexer.pm 2004/01/02 21:00:56 1.85 @@ -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.85 2004/01/02 21:00:56 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -446,6 +446,8 @@ $groupimportbutton END # ---------------------------------------------------------------- Bread crumbs $r->print(&Apache::lonhtmlcommon::crumbs($uri)); +# ------------------------------------------------------ Remember where we were + &Apache::loncommon::storeresurl($uri); # ----------------- output starting row to the indexed file/directory hierarchy my $titleclr="#ddffff"; # $r->print(&initdebug()); @@ -793,12 +795,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 +851,7 @@ sub display_line { ".gif border='0' />\n") if $rem > 0; } - $r->print("\n"); + $r->print("\n"); $r->print (" $listname "); @@ -930,8 +927,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;