add flags to determine what formbuilder object type

This commit is contained in:
Doug Bell 2011-04-13 16:53:41 -05:00
parent 4a43f9fafb
commit 49da157eea

View file

@ -105,6 +105,7 @@ sub toTemplateVars {
when ( $_->isa( 'WebGUI::FormBuilder::Tabset' ) ) {
my $name = $obj->name;
$props = $obj->toTemplateVars;
$props->{ isTabset } = 1;
for my $key ( keys %{$props} ) {
$var->{ "${prefix}tabset_${name}_${key}" } = $props->{$key};
}
@ -113,6 +114,7 @@ sub toTemplateVars {
when ( $_->isa( 'WebGUI::FormBuilder::Fieldset' ) ) {
my $name = $obj->name;
$props = $obj->toTemplateVars;
$props->{ isFieldset } = 1;
for my $key ( keys %{$props} ) {
$var->{ "${prefix}fieldset_${name}_${key}" } = $props->{$key};
}