--- loncom/publisher/lonpubdir.pm	2003/10/18 17:17:12	1.43
+++ loncom/publisher/lonpubdir.pm	2003/11/08 10:33:28	1.44
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.43 2003/10/18 17:17:12 taceyjo1 Exp $
+# $Id: lonpubdir.pm,v 1.44 2003/11/08 10:33:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -113,7 +113,7 @@ sub handler {
   my $dirptr=16384;		# Mask indicating a directory in stat.cmode.
 
   opendir(DIR,$fn);
-  my @files=sort(readdir(DIR));
+  my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
   foreach my $filename (@files) {
      my ($cdev,$cino,$cmode,$cnlink,
          $cuid,$cgid,$crdev,$csize,