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

added Tabsets. finished toHtml

Browse source
This commit is contained in:
Doug Bell 2009-11-20 18:12:11 -06:00
parent db785fbc02
commit 38d395e49f
9 changed files with 166 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/FormBuilder/Role/HasFieldsets.pm
View file

@ -48,8 +48,10 @@ sub addFieldset {
$properties{ label } ||= $object->can('label') ? $object->label : "";
$fieldset = WebGUI::FormBuilder::Fieldset->new( $self->session, %properties );
if ( $object->DOES('WebGUI::FormBuilder::Role::HasTabs') ) {
for my $objectTab ( @{$object->tabs} ) {
$fieldset->addTab( $objectTab );
for my $objectTabset ( @{$object->tabsets} ) {
for my $objectTab ( @{$objectTabset->tabs} ) {
$fieldset->addTab( $objectTab, tabset => $objectTabset->name );
}
}
}
if ( $object->DOES('WebGUI::FormBuilder::Role::HasFieldsets') ) {
@ -68,6 +70,7 @@ sub addFieldset {
$fieldset = WebGUI::FormBuilder::Fieldset->new( $self->session, @properties );
}
push @{$self->fieldsets}, $fieldset;
$self->addObject( $fieldset );
$self->{_fieldsetsByName}{ $fieldset->name } = $fieldset;
return $fieldset;
}