loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.48, 2004/11/16 20:14:09	version 1.49, 2004/11/21 19:18:43
Line 140 sub end_essayresponse {	Line 140 sub end_essayresponse {
}	}
}	}
if ($portfiles =~ /[^\s]/) {	if ($portfiles =~ /[^\s]/) {
	$portfiles =~ /(.*)(,$)/;
	$portfiles = $1;
$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 @submitted_files = split /,/,$portfiles;