Fix showold to show all files in fileboxes

This commit is contained in:
Deon George 2021-05-06 21:00:47 +10:00
parent 3b433de0e0
commit c829c10f12

View File

@ -295,14 +295,17 @@ sub allFilesInFileBoxes
my $node = unbox($dir);
next if($node eq "");
chdir($dir);
my @files = <*.[IiCcDdOoHh][Uu][Tt]>;
push @files, <*.[Ss][Uu][0-9a-zA-Z]>;
push @files, <*.[Mm][Oo][0-9a-zA-Z]>;
push @files, <*.[Tt][Uu][0-9a-zA-Z]>;
push @files, <*.[Ww][Ee][0-9a-zA-Z]>;
push @files, <*.[Tt][Hh][0-9a-zA-Z]>;
push @files, <*.[Ff][Rr][0-9a-zA-Z]>;
push @files, <*.[Ss][Aa][0-9a-zA-Z]>;
#my @files = <*.[IiCcDdOoHh][Uu][Tt]>;
#push @files, <*.[Ss][Uu][0-9a-zA-Z]>;
#push @files, <*.[Mm][Oo][0-9a-zA-Z]>;
#push @files, <*.[Tt][Uu][0-9a-zA-Z]>;
#push @files, <*.[Ww][Ee][0-9a-zA-Z]>;
#push @files, <*.[Tt][Hh][0-9a-zA-Z]>;
#push @files, <*.[Ff][Rr][0-9a-zA-Z]>;
#push @files, <*.[Ss][Aa][0-9a-zA-Z]>;
my @files = <*>;
return if(@files == 0);
foreach my $file (@files)