loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.116, 2011/10/17 12:41:35	version 1.118, 2014/01/21 14:38:55
Line 91 sub start_essayresponse {	Line 91 sub start_essayresponse {
'<label>'.	'<label>'.
&mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'.	&mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'.
$part.'_'.$id.'" value="'.$coll.'" /><br />'.	$part.'_'.$id.'" value="'.$coll.'" /><br />'.
&mt('(Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].)',$ncol,$env{'user.domain'});	&mt('Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].',$ncol,$env{'user.domain'});
if ($ncol > 1) {	if ($ncol > 1) {
$result .= '<br />'.&mt('If entering more than one, use spaces to separate the collaborators.');	$result .= '<br />'.&mt('If entering more than one, use spaces to separate the collaborators.');
}	}
Line 279 sub format_prior_response {	Line 279 sub format_prior_response {
}	}
if ($answer =~ /\S/) {	if ($answer =~ /\S/) {
$output.='<p>'.&mt('Submitted text').	$output.='<p>'.&mt('Submitted text').
'<blockquote>'.$answer.'</blockquote></p>';	'<blockquote>'.&HTML::Entities::encode($answer, '"<>&').'</blockquote></p>';
}	}

return '<div class="LC_prior_essay">'.$output.'</div>';	return '<div class="LC_prior_essay">'.$output.'</div>';