fixed: DataForm ignores height on textarea fields

This commit is contained in:
Graham Knop 2008-10-02 15:12:40 +00:00
parent e971902f6e
commit 62b45785bf
2 changed files with 3 additions and 1 deletions

View file

@ -56,9 +56,10 @@ sub _createForm {
my $data = shift;
my $value = shift;
# copy select entries
my %param = map { $_ => $data->{$_} } qw(name height width extras vertical defaultValue options);
my %param = map { $_ => $data->{$_} } qw(name width extras vertical defaultValue options);
$param{value} = $value;
$param{size} = $param{width};
$param{height} = $data->{rows};
WebGUI::Macro::process($self->session, \( $param{defaultValue} ));