version 1.115, 2011/07/26 17:14:51
|
version 1.116, 2011/10/17 12:41:35
|
Line 397 sub file_submission {
|
Line 397 sub file_submission {
|
my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); |
my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); |
my $fullpath = '/userfiles/portfolio'.$path; |
my $fullpath = '/userfiles/portfolio'.$path; |
if (!exists($dirlist{$fullpath})) { |
if (!exists($dirlist{$fullpath})) { |
my @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1); |
my ($listref,$listerror) = |
$dirlist{$fullpath} = \@list; |
&Apache::lonnet::dirlist($fullpath,$udom,$uname,1); |
|
if (ref($listref) eq 'ARRAY') { |
|
$dirlist{$fullpath} = $listref; |
|
} |
} |
} |
if (ref($dirlist{$fullpath}) eq 'ARRAY') { |
if (ref($dirlist{$fullpath}) eq 'ARRAY') { |
foreach my $dir_line (@{$dirlist{$fullpath}}) { |
foreach my $dir_line (@{$dirlist{$fullpath}}) { |