Return to lonindexer.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.74, 2003/08/16 18:48:24 | version 1.75, 2003/08/21 21:57:36 |
---|---|
Line 551 sub scanDir { | Line 551 sub scanDir { |
my $fext = pop @fileparts; | my $fext = pop @fileparts; |
my $ov = pop @fileparts; | my $ov = pop @fileparts; |
my $fname = join ('.',@fileparts,$fext); | 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+$/); |
} | } |
} | } |