loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.83, 2004/06/04 16:05:47	version 1.84.2.1, 2004/08/19 21:03:23
Line 285 sub insert_responseparam {	Line 285 sub insert_responseparam {
sub insert_formularesponse {	sub insert_formularesponse {
return '	return '
<formularesponse answer="" samples="">	<formularesponse answer="" samples="">
<textline />	<responseparam description="Numerical Tolerance" type="tolerance" default="0.00001" name="tol" />
	<textline size="25"/>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
</hintgroup>	</hintgroup>
Line 487 sub editfield {	Line 488 sub editfield {
my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;	my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;

my ($rows,$cols)=&textarea_sizes(\$data);	my ($rows,$cols)=&textarea_sizes(\$data);
$rows+=5; # make room for HTMLarea	if (&Apache::lonhtmlcommon::htmlareabrowser() &&
	!&Apache::lonhtmlcommon::htmlareablocked()) {
	$rows+=7; # make room for HTMLarea
	$minheight+=7; # make room for HTMLarea
	}
if ($cols > 80) { $cols = 80; }	if ($cols > 80) { $cols = 80; }
if ($cols < $minwidth ) { $cols = $minwidth; }	if ($cols < $minwidth ) { $cols = $minwidth; }
if ($rows < $minheight) { $rows = $minheight; }	if ($rows < $minheight) { $rows = $minheight; }