version 1.96, 2008/12/22 14:55:28
|
version 1.97, 2009/01/01 16:45:32
|
Line 294 sub file_submission {
|
Line 294 sub file_submission {
|
} |
} |
} else { |
} else { |
my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser(); |
my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser(); |
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 @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1); |
foreach my $dir_line (@list) { |
$dirlist{$fullpath} = \@list; |
|
} |
|
if (ref($dirlist{$fullpath}) eq 'ARRAY') { |
|
foreach my $dir_line (@{$dirlist{$fullpath}}) { |
my ($fname,$dom,undef,$testdir,undef,undef,undef,undef, |
my ($fname,$dom,undef,$testdir,undef,undef,undef,undef, |
$size,undef,$mtime,undef,undef,undef,$obs,undef) = |
$size,undef,$mtime,undef,undef,undef,$obs,undef) = |
split(/\&/,$dir_line,16); |
split(/\&/,$dir_line,16); |
Line 310 sub file_submission {
|
Line 313 sub file_submission {
|
last; |
last; |
} |
} |
} |
} |
$dirlist{$fullpath} = \@list; |
|
} |
} |
} |
} |
if (ref($totalsize)) { |
if (ref($totalsize)) { |
Line 319 sub file_submission {
|
Line 321 sub file_submission {
|
if ($which eq 'filename') { |
if ($which eq 'filename') { |
&delete_form_items($jspart,$id); |
&delete_form_items($jspart,$id); |
} |
} |
|
last; |
} else { |
} else { |
push(@accepted_files,$file); |
push(@accepted_files,$file); |
} |
} |