loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.100, 2009/01/21 16:43:30	version 1.101.10.1, 2009/12/06 20:41:40
Line 60 sub start_essayresponse {	Line 60 sub start_essayresponse {
}	}
$result.='<br /><table border="1">';	$result.='<br /><table border="1">';
if ( $Apache::lonhomework::type ne 'survey' ) {	if ( $Apache::lonhomework::type ne 'survey' ) {
$result.= '<tr><td>'.	if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
	$result .= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" />';
	} else {
	$result.= '<tr><td>'.
'<label>'.	'<label>'.
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.	'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.
&mt('Submit entries below as answer to receive credit').	&mt('Submit entries below as answer to receive credit').
'</label> <br />'.	'</label> <br />'.
'<label>'.	'<label>'.
'<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 (not submitted for credit yet)').
'</label>'.	'</label>'.
'</td></tr>';	'</td></tr>';
	}
}	}

if ($ncol > 0) {	if ($ncol > 0) {