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

added save buttons at the top of HTML forms

Browse source
This commit is contained in:
JT Smith 2006-04-07 04:37:20 +00:00
parent 91a620a9f5
commit 1b2c824a9c
16 changed files with 38 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/HTMLForm.pm
View file

@ -120,7 +120,7 @@ sub fieldSetEnd {
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."</fieldset>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."<table ".$self->{_tableExtras}.'" style="width: 100%;"><tbody>'
."\n";
}
@ -142,7 +142,7 @@ sub fieldSetStart {
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."<fieldset>\n<legend>".$legend."</legend>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."<table ".$self->{_tableExtras}.'" style="width: 100%;"><tbody>'
."\n";
}
@ -190,7 +190,7 @@ sub new {
method=>($param{method} || $param{'-method'}),
enctype=>($param{enctype} || $param{'-enctype'})
});
$header .= "\n<table ".$param{tableExtras}.'"><tbody>';
$header .= "\n<table ".$param{tableExtras}.'" style="width: 100%;"><tbody>';
$footer = "</tbody></table>\n" ;
$footer .= WebGUI::Form::formFooter($session);
bless {_session=>$session, _tableExtras=>$param{tableExtras}, _uiLevelOverride=>$param{uiLevelOverride}, _header => $header, _footer => $footer, _data => ''}, $class;