loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

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});
}	}