loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.46, 2004/11/01 22:51:48	version 1.47, 2004/11/13 21:07:20
Line 51 sub start_essayresponse {	Line 51 sub start_essayresponse {
my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"},'<>&"');	my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"},'<>&"');
$result='<br /><table border="1">';	$result='<br /><table border="1">';
$result.='<tr><td>'.	$result.='<tr><td>'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.
&mt('Submit entries below as answer to receive credit').' <br />'.	&mt('Submit entries below as answer to receive credit').' <br />'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no"> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
&mt('Save entries below as a draft answer (not submitting them for credit yet)').	&mt('Save entries below as a draft answer (not submitting them for credit yet)').
' </td></tr>';	' </td></tr>';
if ($ncol > 0) {	if ($ncol > 0) {