Fix showold to show all files in fileboxes
This commit is contained in:
parent
3b433de0e0
commit
c829c10f12
@ -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)
|
||||
|
Reference in New Issue
Block a user