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

fix tabs and tabsets in FormBuilder

Browse source
This commit is contained in:
Doug Bell 2010-12-21 14:32:03 -06:00
parent 6dea8e8d05
commit 0b5614ad1c
2 changed files with 42 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/WebGUI/FormBuilder.pm
View file

@ -257,26 +257,26 @@ sub toTemplateVars {
push @{$fieldsetLoop}, $props;
}
}
# $prefix_tabloop
# $prefix_tabsetloop
# name
# label
# fieldloop
# ...
# fieldsetloop
# ...
# tabloop
# ...
# $prefix_tab_$tabName
if ( @{$self->tabs} ) {
my $tabLoop = [];
$var->{ "${prefix}_tabLoop" } = $tabLoop;
for my $tab ( @{$self->tabs} ) {
my $name = $tab->name;
my $props = $tab->toTemplateVars;
# fieldloop
# ...
# fieldsetloop
# ...
# tabsetloop
# ...
# $prefix_tabset_$tabsetName
if ( @{$self->tabsets} ) {
my $tabsetLoop = [];
$var->{ "${prefix}_tabsetLoop" } = $tabsetLoop;
for my $tabset ( @{$self->tabsets} ) {
my $name = $tabset->name;
my $props = $tabset->toTemplateVars;
for my $key ( keys %{$props} ) {
$var->{ "${prefix}_tab_${name}_${key}" } = $props->{key};
$var->{ "${prefix}_tabset_${name}_${key}" } = $props->{key};
}
push @{$tabLoop}, $props;
push @{$tabsetLoop}, $props;
}
}