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

fix formbuilder tests for new flags

Browse source
This commit is contained in:
Doug Bell 2011-04-13 17:53:06 -05:00
parent d466e757e4
commit eec3986cf7
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/FormBuilder.t
View file

@ -324,6 +324,7 @@ sub fieldset_vars {
name => $fieldset->name, name => $fieldset->name,
label => $fieldset->label, label => $fieldset->label,
legend => $fieldset->legend, legend => $fieldset->legend,
isFieldset => 1,
%{object_vars( $fieldset )}, %{object_vars( $fieldset )},
}; };
} }
@ -332,6 +333,7 @@ sub tabset_vars {
my $tabset = shift; my $tabset = shift;
my $var = { my $var = {
name => $tabset->name, name => $tabset->name,
isTabset => 1,
tabs => [ map { { %{object_vars( $_ )}, name => $_->name, label => $_->label } } @{$tabset->tabs} ], tabs => [ map { { %{object_vars( $_ )}, name => $_->name, label => $_->label } } @{$tabset->tabs} ],
}; };
for my $tab ( @{ $var->{tabs} } ) { for my $tab ( @{ $var->{tabs} } ) {