--- loncom/interface/groupsort.pm	2003/09/23 00:26:10	1.23
+++ 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.23 2003/09/23 00:26:10 www Exp $
+# $Id: groupsort.pm,v 1.25 2003/12/30 20:47:23 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,7 +68,7 @@ sub handler {
 
 # finish_import looks different for graphical or "simple" RAT
     my $finishimport='';
-    if ($ENV{'form.mode'} eq 'simple') {
+    if ($ENV{'form.mode'} eq 'simple' || $ENV{'form.mode'} eq '') {
         $finishimport=(<<ENDSMP);
 function finish_import() {
     opener.document.forms.simpleedit.importdetail.value='';
@@ -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));