[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Mon Jan 29 15:17:56 2007 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - lowercase the extension
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.504 loncom/interface/loncommon.pm:1.505
--- loncom/interface/loncommon.pm:1.504	Wed Jan 24 16:42:01 2007
+++ loncom/interface/loncommon.pm	Mon Jan 29 15:17:55 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.504 2007/01/24 21:42:01 albertel Exp $
+# $Id: loncommon.pm,v 1.505 2007/01/29 20:17:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6564,7 +6564,7 @@
 
 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')) {