[html-formfu] mutliple selects

Thorsten Domsch tdomsch at gmx.de
Wed May 30 10:31:56 GMT 2007


Sample Code so far (pretty simple and straight i guess)...

package HTML::FormFu::Element::date;
use strict;
use warnings;
use base 'HTML::FormFu::Element::multi';
use Data::Dumper;
use HTML::FormFu::Util qw( append_xml_attribute );
__PACKAGE__->mk_attr_accessors(qw/ size start_year end_year/);
sub new {
    my $self = shift->SUPER::new(@_);

    my $id_day=$self->name."_day";  #<- not working :-( it should ??
    my $id_month=$self->name."_month";   #<- not working :-( it should ??
    my $id_year=$self->name"_year";  #<- not working :-( it should ??

    my @options;
    for ( my $i = 0 ; $i < 31 ; $i++ ) {
        push( @options, { 'label' => $i + 1, 'value' => $i + 1 } );
    }
    my $days =
      $self->form->element(
        { type => 'select', name => $id_day, options => \@options } );

    my $months = $self->form->element(
        {
            type    => 'select',
            name    => $id_month,
            options => [
                { 'label' => 'Januar',    'value' => '1' },
                { 'label' => 'Februar',   'value' => '2' },
                { 'label' => 'März',     'value' => '3' },
                { 'label' => 'April',     'value' => '4' },
                { 'label' => 'Mai',       'value' => '5' },
                { 'label' => 'Juni',      'value' => '6' },
                { 'label' => 'Juli',      'value' => '7' },
                { 'label' => 'August',    'value' => '8' },
                { 'label' => 'September', 'value' => '9' },
                { 'label' => 'Oktober',   'value' => '10' },
                { 'label' => 'November',  'value' => '11' },
                { 'label' => 'Dezember',  'value' => '12' }
            ]
        }
    );

    @options = ();
    for ( my $i = 1977 ; $i <= 2010 ; $i++ ) {
        push( @options, { 'label' => $i, 'value' => $i } );
    }

    my $years =
      $self->form->element(
        { type => 'select', name => $id_year, options => \@options } );

   return $self;

}

1;
-- 
Ist Ihr Browser Vista-kompatibel? Jetzt die neuesten 
Browser-Versionen downloaden: http://www.gmx.net/de/go/browser



More information about the HTML-FormFu mailing list