![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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+$/); |
| } | } |
| } | } |