From 49da157eea8f10313d8b6a279935988f980f511b Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Wed, 13 Apr 2011 16:53:41 -0500
Subject: [PATCH] add flags to determine what formbuilder object type

---
 lib/WebGUI/FormBuilder/Role/HasObjects.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/WebGUI/FormBuilder/Role/HasObjects.pm b/lib/WebGUI/FormBuilder/Role/HasObjects.pm
index 234507aa1..e27bff45d 100644
--- a/lib/WebGUI/FormBuilder/Role/HasObjects.pm
+++ b/lib/WebGUI/FormBuilder/Role/HasObjects.pm
@@ -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};
                 }