loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2005/05/03 19:22:58	version 1.67, 2005/05/20 18:53:53
Line 154 sub end_essayresponse {	Line 154 sub end_essayresponse {
sub file_submission {	sub file_submission {
my ($part,$id,$which,$award,$uploadedflag)=@_;	my ($part,$id,$which,$award,$uploadedflag)=@_;
my $files;	my $files;
if ($which eq 'portfiles') { $files= $env{'form.HWPORT'.$part.'_'.$id}; }	my $jspart=$part;
	$jspart=~s/\./_/g;
	if ($which eq 'portfiles') { $files= $env{'form.HWPORT'.$jspart.'_'.$id}; }
if ($which eq 'filename') {	if ($which eq 'filename') {
$files = $env{'form.HWFILE'.$part.'_'.$id.'.filename'};	$files = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'};
}	}

if ($files =~ /[^\s]/) {	if ($files =~ /[^\s]/) {
Line 187 sub file_submission {	Line 189 sub file_submission {
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=	$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=
$files;	$files;
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=	$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id,undef,	&Apache::lonnet::userfileupload('HWFILE'.$jspart.'_'.$id,undef,
'essayresponse');	'essayresponse');
}	}
} elsif ($which eq 'portfiles' &&	} elsif ($which eq 'portfiles' &&