[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm /publisher lonpubdir.pm

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 08 Nov 2003 10:33:28 -0000


albertel		Sat Nov  8 05:33:28 2003 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
    /loncom/publisher	lonpubdir.pm 
  Log:
  - BUG#2362, sort files listing case insesitively
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.79 loncom/interface/lonindexer.pm:1.80
--- loncom/interface/lonindexer.pm:1.79	Fri Oct 24 17:09:24 2003
+++ loncom/interface/lonindexer.pm	Sat Nov  8 05:33:27 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.79 2003/10/24 21:09:24 albertel Exp $
+# $Id: lonindexer.pm,v 1.80 2003/11/08 10:33:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -684,7 +684,7 @@
 	    push @trimlist,$line;
 	}
     }
-    @trimlist = sort (@trimlist);
+    @trimlist = sort {uc($a) cmp uc($b)} (@trimlist);
     return @trimlist;
 }
 
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.43 loncom/publisher/lonpubdir.pm:1.44
--- loncom/publisher/lonpubdir.pm:1.43	Sat Oct 18 13:17:12 2003
+++ loncom/publisher/lonpubdir.pm	Sat Nov  8 05:33:28 2003
@@ -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 @@
   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,