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

[albertel]

albertel		Thu Aug 21 17:57:36 2003 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  - part of BUG#1083, versions are pure numbers, not 1a, show files such as 
     filename.1a.problem
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.74 loncom/interface/lonindexer.pm:1.75
--- loncom/interface/lonindexer.pm:1.74	Sat Aug 16 14:48:24 2003
+++ loncom/interface/lonindexer.pm	Thu Aug 21 17:57:36 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.74 2003/08/16 18:48:24 www Exp $
+# $Id: lonindexer.pm,v 1.75 2003/08/21 21:57:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -551,7 +551,7 @@
 		my $fext = pop @fileparts;
 		my $ov = pop @fileparts;
 		my $fname = join ('.',@fileparts,$fext);
-		next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);
+		next if (grep /\Q$fname\E/,@list and $ov =~ /^\d+$/);
 	    }
 	}