package HTML::FormWidgets::Date;

# @(#)$Id: Date.pm 26 2008-03-24 19:14:41Z pjf $

use strict;
use warnings;
use base qw(HTML::FormWidgets);
use Readonly;

use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 26 $ =~ /\d+/gmx );

Readonly my $TTS => q( ~ );

sub _render {
   my ($me, $ref) = @_; my ($format, $htag, $html, $text);

   $htag            = $me->elem;
   $ref->{size   }  = $me->width || 10;
   $format          = $me->format || q(dd/MM/yyyy);
   $text            = $htag->textfield( $ref );
   $html            = $htag->div( { class => q(container) }, $text );
   $html           .= $htag->div( { class => q(separator) }, q( ) );
   $text            = 'var cal_'.$me->name.' = new CalendarPopup(\'';
   $text           .= $me->name.'_calendar\');';
   $text            = $htag->script( { type => q(text/javascript) }, $text );
   $ref             = { alt => q(Calendar), class => q(icon) };
   $ref->{src    }  = $me->assets.'calendar.png';
   $text           .= $htag->img( $ref );
   $ref             = {};
   $ref->{class  }  = q(tips);
   $ref->{href   }  = q();
   $ref->{id     }  = 'anchor_'.$me->name;
   $ref->{onclick}  = 'cal_'.$me->name.'.select( document.forms[0].'.$me->name;
   $ref->{onclick} .= ', '.'\'anchor_'.$me->name.'\', \''.$format.'\' ); ';
   $ref->{onclick} .= 'return false;';
   $ref->{title  }  = $me->hint_title.$TTS.$me->msg( q(dateWidgetTip) );
   $text            = $htag->a( $ref, $text );
   $html           .= $htag->div( { class => q(container) }, $text );
   $html           .= $htag->div( { class => q(calendar hidden),
                                    id    => $me->name.'_calendar' } );
   return $html;
}

1;

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