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;
}
}

26
lib/WebGUI/FormBuilder/Tabset.pm
View file

@ -139,4 +139,30 @@ sub toHtml {
return $html;
}
#----------------------------------------------------------------------------
=head2 toTemplateVars ( )
Return a hashref of template vars to re-create this tabset
=cut
sub toTemplateVars {
my ( $self ) = @_;
my $var = {};
$var->{ tabs } = [];
for my $tab ( $self->tabs ) {
my $name = $tab->name;
my $props = $tab->toTemplateVars;
$var->{ "tabs_${name}" } = $tab->toHtml;
push @{$var->{tabs}}, $props;
for my $key ( %$props ) {
$var->{ "tabs_${name}_${key}" } = $props->{$key};
}
}
return $var;
}
1;