loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.301, 2012/01/29 03:02:52	version 1.302, 2012/03/11 20:17:10
Line 185 sub start_textfield {	Line 185 sub start_textfield {
}	}
}	}
unless ($newvariation) {	unless ($newvariation) {
$oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');	$oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
}	}
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);	my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
Line 200 sub start_textfield {	Line 200 sub start_textfield {
my $textareaclass = 'class="LC_richDetectHtml"';	my $textareaclass = 'class="LC_richDetectHtml"';
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.	$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.	'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'.
$oldresponse;	&HTML::Entities::encode($oldresponse,'<>&"');
if ($oldresponse ne '') {	if ($oldresponse ne '') {

#get rid of any startup text if the user has already responded	#get rid of any startup text if the user has already responded