From 62b45785bf579ca764d7699efa268b47e2860560 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 2 Oct 2008 15:12:40 +0000
Subject: [PATCH] fixed: DataForm ignores height on textarea fields

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 37ea1f9f9..232ebf585 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -4,6 +4,7 @@
    "exportBianryExtensions" field.
  - fixed: some default assets have ids shorter than 22 characters
  - fixed: failure when submitting a dataform that sends mail with an empty file field
+ - fixed: DataForm ignores height on textarea fields
 
 7.6.0
  - added: users may now customize the post received page for the CS
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 34fcc2a17..46c920d85 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -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} ));