version 1.82, 2004/06/03 16:42:02
|
version 1.83, 2004/06/04 16:05:47
|
Line 487 sub editfield {
|
Line 487 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+=3; # make room for HTMLarea |
$rows+=5; # 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; } |