# @(#)$Ident: TabSwapper.pm 2013-05-16 14:21 pjf ;

package HTML::FormWidgets::TabSwapper;

use strict;
use warnings;
use version; our $VERSION = qv( sprintf '0.21.%d', q$Rev: 1 $ =~ /\d+/gmx );
use parent qw(HTML::FormWidgets);

__PACKAGE__->mk_accessors( qw(data) );

sub init {
   my ($self, $args) = @_;

   $self->class    ( q(tabswapper) );
   $self->container( 0             );
   $self->data     ( []            );
   return;
}

sub render_field {
   my ($self, $args) = @_; my $hacc = $self->hacc; my $html;

   for my $item (@{ $self->data }) {
      my $clicker = $self->inflate( $item->{clicker} );
      my $section = $self->inflate( $item->{section} );

      $html   .= $hacc->dt ( { class => q(tab off)       }, $clicker );
      $section = $hacc->div( { class => q(panel_content) }, $section );
      $html   .= $hacc->dd ( { class => q(panel)         }, $section );
   }

   $html = $hacc->dl( { class => q(tabset) }, $html );

   return $hacc->div( { class => $self->class, id => $self->id }, $html );
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: