oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Matthew Wilson 2005-09-14 00:57:39 +00:00
parent 5feae6f617
commit 444c46acf3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/HTMLForm.pm
View file

@ -148,10 +148,10 @@ sub new {
my $class = shift; my $class = shift;
my %param = @_; my %param = @_;
$header = "\n\n".WebGUI::Form::formHeader({ $header = "\n\n".WebGUI::Form::formHeader({
action=>$param{action}, action=>($param{action} || $param{'-action'}),
extras=>$param{extras}, extras=>($param{extras} || $param{'-extras'}),
method=>$param{method}, method=>($param{method} || $param{'-method'}),
enctype=>$param{enctype} enctype=>($param{enctype} || $param{'-enctype'})
}); });
$header .= "\n<table ".$param{tableExtras}.'><tbody>'; $header .= "\n<table ".$param{tableExtras}.'><tbody>';
$footer = "</tbody></table>\n" ; $footer = "</tbody></table>\n" ;