version 1.83, 2004/06/04 16:05:47
|
version 1.86, 2004/08/19 21:01:54
|
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; } |
Line 500 sub editfield {
|
Line 505 sub editfield {
|
'" cols="'.$cols.'" name="homework_edit_'. |
'" cols="'.$cols.'" name="homework_edit_'. |
$Apache::lonxml::curdepth.'" id="homework_edit_'. |
$Apache::lonxml::curdepth.'" id="homework_edit_'. |
$Apache::lonxml::curdepth.'">'. |
$Apache::lonxml::curdepth.'">'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'."\n"; |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
|
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', |
|
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |
} |
} |
|
|
sub modifiedfield { |
sub modifiedfield { |