loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.308, 2012/09/10 09:50:57	version 1.309, 2012/09/14 11:23:58
Line 253 sub start_textfield {	Line 253 sub start_textfield {
for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}	for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
$result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';	$result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
} else {	} else {
my $TeXwidth=$width_of_box/80;	my $fieldname = $env{'request.symb'}.
$result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';	'&part_'. $Apache::inputtags::part.
for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}	'&textresponse'.
$result.='}}}\vskip 2 mm ';	'&HWVAL_' . $Apache::inputtags::response['-1'];
	$result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85
	.85 .85}]\\';
}	}
}	}
return $result;	return $result;