File Coverage

lib/HTML/FormWidgets/Freelist.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	51	53	96.2

package HTML::FormWidgets::Freelist;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( height values width ) );

my $TTS = q( ~ );

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

   $self->container_class( q(freelist_container) );
   $self->height         ( 5 );
   $self->values         ( [] );
   return;
}

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

   my $add_tip    = $self->hint_title.$TTS.$self->loc( q(freelistAddTip) );
   my $remove_tip = $self->hint_title.$TTS.$self->loc( q(freelistRemoveTip) );

   $args              = {};
   $args->{class   } .= q( ifield freelist);
   $args->{id      }  = $self->id;
   $args->{name    }  = q(_).$self->name;
   $args->{size    }  = $self->width if (defined $self->width);

   my $html  = $hacc->textfield( $args );

   $args              = {};
   $args->{class   }  = q( ifield freelist);
   $args->{id      }  = $self->id.q(_list);
   $args->{multiple}  = q(true);
   $args->{name    }  = q(_).$self->name.q(_list);
   $args->{size    }  = $self->height;
   $args->{values  }  = $self->values;

   $html    .= $hacc->scrolling_list( $args );

   for my $val (@{ $self->{values} }) {
      $html .= $hacc->hidden( { name => $self->name, value => $val } );
   }

   $html     = $hacc->span( { class => q(freelist_ifields) }, $html );

   my $text  = $hacc->span( { class => q(add_item_icon) }, q( ) );

   $args     = { class  => q(icon_button tips add),
                 id     => $self->id.q(_add),
                 title  => $add_tip };

   my $text1 = $hacc->span( $args, $text );

   $text     = $hacc->span( { class => q(remove_item_icon) }, q( ) );
   $args     = { class  => q(icon_button tips remove),
                 id     => $self->id.q(_remove),
                 title  => $remove_tip };
   $text1   .= $hacc->span( $args, $text );
   $html    .= $hacc->span( { class => q(freelist_buttons) }, $text1 );

   return $html;
}

1;

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