--- loncom/interface/groupsort.pm	2003/10/07 20:30:13	1.24
+++ loncom/interface/groupsort.pm	2003/12/30 20:47:23	1.25
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.24 2003/10/07 20:30:13 matthew Exp $
+# $Id: groupsort.pm,v 1.25 2003/12/30 20:47:23 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -351,13 +351,7 @@ END
     foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
 	my $key=$_;
 	$ctr++;
-	my @file_ext = split(/\./,$key);
-	my $curfext = $file_ext[scalar(@file_ext)-1];
-	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($key);
 	if ($clen > 1) {
 	    $r->print("<tr><td bgcolor='$fileclr'>");
 	    $r->print(&movers($clen,$ctr));