fixing HTMLForm.pm so new() actually passes its parameters.
This commit is contained in:
parent
5feae6f617
commit
444c46acf3
1 changed files with 4 additions and 4 deletions
|
|
@ -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" ;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue