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);
|
my $node = unbox($dir);
|
||||||
next if($node eq "");
|
next if($node eq "");
|
||||||
chdir($dir);
|
chdir($dir);
|
||||||
my @files = <*.[IiCcDdOoHh][Uu][Tt]>;
|
|
||||||
push @files, <*.[Ss][Uu][0-9a-zA-Z]>;
|
#my @files = <*.[IiCcDdOoHh][Uu][Tt]>;
|
||||||
push @files, <*.[Mm][Oo][0-9a-zA-Z]>;
|
#push @files, <*.[Ss][Uu][0-9a-zA-Z]>;
|
||||||
push @files, <*.[Tt][Uu][0-9a-zA-Z]>;
|
#push @files, <*.[Mm][Oo][0-9a-zA-Z]>;
|
||||||
push @files, <*.[Ww][Ee][0-9a-zA-Z]>;
|
#push @files, <*.[Tt][Uu][0-9a-zA-Z]>;
|
||||||
push @files, <*.[Tt][Hh][0-9a-zA-Z]>;
|
#push @files, <*.[Ww][Ee][0-9a-zA-Z]>;
|
||||||
push @files, <*.[Ff][Rr][0-9a-zA-Z]>;
|
#push @files, <*.[Tt][Hh][0-9a-zA-Z]>;
|
||||||
push @files, <*.[Ss][Aa][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);
|
return if(@files == 0);
|
||||||
|
|
||||||
foreach my $file (@files)
|
foreach my $file (@files)
|
||||||
|
Reference in New Issue
Block a user