loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.49, 2004/11/21 19:18:43	version 1.50, 2004/11/23 14:37:33
Line 140 sub end_essayresponse {	Line 140 sub end_essayresponse {
}	}
}	}
if ($portfiles =~ /[^\s]/) {	if ($portfiles =~ /[^\s]/) {
$portfiles =~ /(.*)(,$)/;	$portfiles =~s/,$//;
$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;
my @submitted_files = split /,/,$portfiles;	my @submitted_files = split /,/,$portfiles;
my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();	my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);	&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);