loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.44, 2004/10/27 18:30:48	version 1.45, 2004/10/30 23:59:00
Line 142 sub end_essayresponse {	Line 142 sub end_essayresponse {
if ($portfiles =~ /[^\s]/) {	if ($portfiles =~ /[^\s]/) {
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;	$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=$portfiles;	$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=$portfiles;
	my @submitted_files = split /,/,$portfiles;
	my ($dsymb,$crsid,$domain,$name)=
	&Apache::lonxml::whichuser();
	foreach (@submitted_files) {
	my $file = $_;
	$Apache::lonhomework::results{"resource.$domain.$crsid.$name.$file"}='true';
	}
$uploadedflag=1;	$uploadedflag=1;
}	}
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;