fixing HTMLForm.pm so new() actually passes its parameters.

This commit is contained in:
Matthew Wilson 2005-09-14 00:57:39 +00:00
parent 5feae6f617
commit 444c46acf3

View file

@ -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" ;