--- loncom/interface/lonindexer.pm	2001/12/11 03:50:09	1.27
+++ loncom/interface/lonindexer.pm	2001/12/13 13:38:14	1.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.27 2001/12/11 03:50:09 harris41 Exp $
+# $Id: lonindexer.pm,v 1.28 2001/12/13 13:38:14 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@
 # 8/14 H. K. Ng
 # 8/28,10/15,11/28,11/29 Scott Harrison
 # 11/30 Matthew Hall
+# 12/11,12/13 Scott Harrison
 #
 ###
 
@@ -489,7 +490,7 @@ sub match_ext {
 	my $fext = pop(@filecom);
 	my $fnptr = $unpackline[3]&$dirptr;
  	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) && 
 				     $embstyle ne 'hdn' );
 	} else {
@@ -594,7 +595,7 @@ sub display_line {
 	my $curfext = $file_ext[-1];
 	# Set the icon for the file
 	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
 	$iconname = $curfext.".gif" unless
 	    (!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn');
@@ -689,7 +690,7 @@ sub display_line {
 	if ($hash{'display_attrs_5'} == 1) {
 	    my $lang = &Apache::lonnet::metadata($filelink,'language')
 		if ($metafile == 1);
-	    $lang = $language{$lang};
+	    $lang = &Apache::loncommon::languagedescription($lang);
 	    $lang = ' ' if (!$lang);
 	    $r->print("<td bgcolor=$fileclr valign=bottom> ".$lang.
 		      " </td>\n");