--- loncom/interface/loncommon.pm	2007/01/23 20:00:38	1.503
+++ loncom/interface/loncommon.pm	2007/01/29 20:17:55	1.505
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.503 2007/01/23 20:00:38 raeburn Exp $
+# $Id: loncommon.pm,v 1.505 2007/01/29 20:17:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5394,9 +5394,9 @@ sub record_sep {
     } else {
         my @allfields;
         if ($env{'form.upfiletype'} eq 'semisv') {
-            @allfields=split(/;/,$record);
+            @allfields=split(/;/,$record,-1);
         } else {
-            @allfields=split(/\,/,$record);
+            @allfields=split(/\,/,$record,-1);
         }
         my $i=0;
         my $j;
@@ -6564,7 +6564,7 @@ sub group_term {
 
 sub icon {
     my ($file)=@_;
-    my $curfext = (split(/\./,$file))[-1];
+    my $curfext = lc((split(/\./,$file))[-1]);
     my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif';
     my $embstyle = &Apache::loncommon::fileembstyle($curfext);
     if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) {