From 97e6ebbdafbe9cb7d3448c2d8689b62ca04322ec Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 25 Nov 2002 08:28:45 +0000
Subject: [PATCH] Fixed a bug where cols=rows on HTML Areas.

---
 lib/WebGUI/Form.pm               | 2 +-
 lib/WebGUI/Operation/Template.pm | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index 96500b58a..cd3e28985 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -659,7 +659,7 @@ sub HTMLArea {
                       WebGUI::International::get(171).'" style="font-size: 8pt;"><br>';
         }
 	$rows = $_[0]->{rows} || ($session{setting}{textAreaRows}+7);
-	$columns = $_[0]->{rows} || ($session{setting}{textAreaCols}+5);
+	$columns = $_[0]->{columns} || ($session{setting}{textAreaCols}+5);
         $output .= textarea({
                 name=>$_[0]->{name},
                 value=>$_[0]->{value},
diff --git a/lib/WebGUI/Operation/Template.pm b/lib/WebGUI/Operation/Template.pm
index f18474665..7bf4de368 100644
--- a/lib/WebGUI/Operation/Template.pm
+++ b/lib/WebGUI/Operation/Template.pm
@@ -117,7 +117,12 @@ sub www_editTemplate {
 		}
                 $f->hidden("tid",$session{form}{tid});
                 $f->text("name",WebGUI::International::get(528),$template{name});
-                $f->HTMLArea("template",WebGUI::International::get(504),$template{template},'','','',(5+$session{setting}{textAreaRows}));
+                $f->HTMLArea(
+			-name=>"template",
+			-label=>WebGUI::International::get(504),
+			-value=>$template{template},
+			-rows=>(5+$session{setting}{textAreaRows})
+			);
                 $f->submit;
 		$output .= $f->print;
         } else {