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

moving to tabsets and ordered everything

Browse source
This commit is contained in:
Doug Bell 2009-11-17 14:00:07 -06:00
parent 631f6ad267
commit db785fbc02
5 changed files with 48 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/FormBuilder.pm
View file

@ -119,18 +119,21 @@ Return the HTML for the form
=cut
override 'toHtml' => sub {
sub toHtml {
my ( $self ) = @_;
my @attrs = qw{ action method name enctype };
my $attrs = join " ", map { qq{$_="} . $self->$_ . qq{"} } grep { $self->$_ } @attrs;
my $html = sprintf '<form %s>', $attrs;
$html .= super();
# Add individual objects
$html .= join "", map { $_->toHtml } @{$self->objects};
$html .= '</form>';
return $html;
};
}
#----------------------------------------------------------------------------