|
version 1.110, 2010/08/23 03:21:26
|
version 1.111, 2010/08/28 22:25:07
|
|
Line 485 sub file_submission {
|
Line 485 sub file_submission {
|
| push(@pathitems,$restitle); |
push(@pathitems,$restitle); |
| $path .= join('/',@pathitems); |
$path .= join('/',@pathitems); |
| my $formelement = 'HWFILE'.$jspart.'_'.$id; |
my $formelement = 'HWFILE'.$jspart.'_'.$id; |
| my $fname = $env{'form.'.$formelement.'.filename'}; |
my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'}); |
| &Apache::lonnet::clean_filename($fname); |
|
| my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname; |
my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname; |
| my @stat = &Apache::lonnet::stat_file($url); |
my @stat = &Apache::lonnet::stat_file($url); |
| if (@stat && $stat[0] ne 'no_such_dir') { |
if (@stat && $stat[0] ne 'no_such_dir') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework