loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.56, 2004/12/16 21:21:35	version 1.57, 2004/12/21 22:46:27
Line 150 sub end_essayresponse {	Line 150 sub end_essayresponse {
&Apache::lonnet::clear_selected_files($name);	&Apache::lonnet::clear_selected_files($name);
$uploadedflag=1;	$uploadedflag=1;
} else {	} else {
	my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
	&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}="";	$Apache::lonhomework::results{"resource.$part.$id.portfiles"}="";
}	}
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;