loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.71, 2002/10/29 06:12:32	version 1.72, 2002/11/06 22:40:29
Line 146 sub start_textline {	Line 146 sub start_textline {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);	my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
if ($size eq '') { $size=20; }	my $maxlength;
	if ($size eq '') { $size=20; } else {
	if ($size < 20) { $maxlength=$size; }
	}
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"});	my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"});
$result= '<input type="text" name="HWVAL'.$id.'" value="'.	$result= '<input type="text" name="HWVAL'.$id.'" value="'.
$oldresponse.'" size="'.$size.'" />';	$oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';
} else {	} else {
#right or wrong don't show what was last typed in.	#right or wrong don't show what was last typed in.
#$result='<i>'.$oldresponse.'</i>';	#$result='<i>'.$oldresponse.'</i>';