--- loncom/interface/lonindexer.pm 2003/08/16 18:48:24 1.74 +++ loncom/interface/lonindexer.pm 2003/08/21 21:57:36 1.75 @@ -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 @@ sub scanDir { 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+$/); } }