version 1.97, 2009/01/01 16:45:32
|
version 1.98, 2009/01/05 05:54:34
|
Line 378 sub file_submission {
|
Line 378 sub file_submission {
|
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
&Apache::lonnet::userfileupload('HWFILE'.$jspart.'_'.$id,undef, |
&Apache::lonnet::userfileupload('HWFILE'.$jspart.'_'.$id,undef, |
$subdir); |
$subdir); |
&Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id}); |
delete($env{'form.HWFILE'.$jspart.'_'.$id}); |
} |
} |
} elsif ($which eq 'portfiles' && |
} elsif ($which eq 'portfiles' && |
$Apache::lonhomework::history{"resource.$part.$id.$which"}) { |
$Apache::lonhomework::history{"resource.$part.$id.$which"}) { |
Line 390 sub file_submission {
|
Line 390 sub file_submission {
|
|
|
sub delete_form_items { |
sub delete_form_items { |
my ($jspart,$id) = @_; |
my ($jspart,$id) = @_; |
&Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}); |
delete($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}); |
&Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'}); |
delete($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'}); |
&Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id}); |
delete($env{'form.HWFILE'.$jspart.'_'.$id}); |
} |
} |
|
|
|
|