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 => [EMAIL PROTECTED] } );
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 => [EMAIL PROTECTED] } );
return $self;
}
1;
--
Ist Ihr Browser Vista-kompatibel? Jetzt die neuesten
Browser-Versionen downloaden: http://www.gmx.net/de/go/browser
_______________________________________________
HTML-FormFu mailing list
HTML-FormFu@lists.scsys.co.uk
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/html-formfu
