added Tabsets. finished toHtml

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

View file

@ -87,20 +87,13 @@ Get the WebGUI::Session attached to this object
=head2 toHtml ( )
Render this Tab.
Render the objects in this tab
=cut
sub toHtml {
my ( $self ) = @_;
# Whatever YUI Tabs wants
my $html = '<div class="yui-tab">'
. '<div class="yui-tab-label">' . $self->label . '</div>'
;
$html .= inner();
$html .= '</div>';
my $html = join "", map { $_->toHtml } @{$self->objects};
return $html;
}