version 1.112, 2010/09/08 04:05:32
|
version 1.113, 2011/10/23 00:04:51
|
Line 1547 sub build_members_list {
|
Line 1547 sub build_members_list {
|
sub group_files { |
sub group_files { |
my ($group,$portpath,$numfiles,$numdirs) = @_; |
my ($group,$portpath,$numfiles,$numdirs) = @_; |
my $dirptr=16384; |
my $dirptr=16384; |
my @dir_list=&Apache::portfolio::get_dir_list($portpath,undef,$group); |
my ($dirlistref,$listerror) = |
foreach my $line (@dir_list) { |
&Apache::portfolio::get_dir_list($portpath,undef,$group); |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
if (ref($dirlistref) eq 'ARRAY') { |
if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/) && ($filename ne 'no_such_dir')) { |
foreach my $line (@{$dirlistref}) { |
if ($dirptr&$testdir) { |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
$portpath .= '/'.$filename; |
if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/) && ($filename ne 'no_such_dir')) { |
$$numdirs ++; |
if ($dirptr&$testdir) { |
&group_files($group,$portpath,$numfiles,$numdirs) |
$portpath .= '/'.$filename; |
} else { |
$$numdirs ++; |
$$numfiles ++; |
&group_files($group,$portpath,$numfiles,$numdirs) |
|
} else { |
|
$$numfiles ++; |
|
} |
} |
} |
} |
} |
} |
} |