moving to tabsets and ordered everything

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

View file

@ -11,6 +11,7 @@ has 'fields' => (
default => sub { [] },
);
with 'WebGUI::FormBuilder::Role::HasObjects';
=head1 METHODS
@ -119,23 +120,5 @@ sub getFieldsRecursive {
return $fields;
}
#----------------------------------------------------------------------------
=head2 toHtml ( )
Render the fields in this part of the form.
=cut
override 'toHtml' => sub {
my ( $orig, $self ) = @_;
my $html = super();
for my $field ( @{$self->fields} ) {
$html .= $field->toHtmlWithWrapper;
}
return $html;
};
1;