From 444c46acf36da4ee8383c330ee07bfdc29462110 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Wed, 14 Sep 2005 00:57:39 +0000
Subject: [PATCH] fixing HTMLForm.pm so new() actually passes its parameters.

---
 lib/WebGUI/HTMLForm.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index d01e81a6d..f3d5c629c 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -148,10 +148,10 @@ sub new {
 	my $class = shift;
 	my %param = @_;
 	$header = "\n\n".WebGUI::Form::formHeader({
-		action=>$param{action},
-		extras=>$param{extras},
-		method=>$param{method},
-		enctype=>$param{enctype}
+		action=>($param{action} || $param{'-action'}),
+		extras=>($param{extras} || $param{'-extras'}),
+		method=>($param{method} || $param{'-method'}),
+		enctype=>($param{enctype} || $param{'-enctype'})
 		});
 	$header .= "\n<table ".$param{tableExtras}.'><tbody>';
 	$footer = "</tbody></table>\n" ;