fix navigation edit form

This commit is contained in:
Doug Bell 2010-06-07 11:54:28 -05:00
parent eec0780893
commit 1caef590cc
3 changed files with 227 additions and 207 deletions

View file

@ -119,9 +119,17 @@ sub getFieldsRecursive {
if ( $self->DOES('WebGUI::FormBuilder::Role::HasFieldsets') ) {
# Add $self->{_fieldsets} fields
for my $fs ( @{$self->fieldsets} ) {
push @$fields, $fs->getFieldsRecursive;
}
}
if ( $self->DOES('WebGUI::FormBuilder::Role::HasTabs') ) {
# Add $self->{_tabs} fields
for my $tabset ( @{$self->tabsets} ) {
for my $tab ( @{$tabset->tabs} ) {
push @$fields, $tab->getFieldsRecursive;
}
}
}
return $fields;