loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.322, 2013/08/29 13:02:11	version 1.324, 2014/06/19 19:37:35
Line 238 sub start_textfield {	Line 238 sub start_textfield {
if ($addchars) {	if ($addchars) {
$result.=&addchars($tagident, $addchars);	$result.=&addchars($tagident, $addchars);
}	}
my $textareaclass = 'class="LC_richDetectHtml spellchecked"';	my $textareaclass;
	unless (&Apache::londefdef::is_inside_of($tagstack,
	'externalresponse')) {
	$textareaclass = 'class="LC_richDetectHtml spellchecked"';
	}
$result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .	$result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass	'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
.'>'.	.'>'.
Line 254 sub start_textfield {	Line 258 sub start_textfield {
&& &Apache::londefdef::is_inside_of($tagstack,	&& &Apache::londefdef::is_inside_of($tagstack,
'essayresponse') ) {	'essayresponse') ) {
$result='<table class="LC_pastsubmission"><tr><td>'.	$result='<table class="LC_pastsubmission"><tr><td>'.
$oldresponse.'</td></tr></table>';	&HTML::Entities::encode($oldresponse,'"<>&').
	'</td></tr></table>';
}	}
#get rid of any startup text	#get rid of any startup text
&Apache::lonxml::get_all_text("/textfield",$parser,$style);	&Apache::lonxml::get_all_text("/textfield",$parser,$style);