Revision 62 (by ahitrov@rambler.ru, 2010/09/13 15:19:37) Поправка на ветер для date.msn и datetime.msn
<%args>
	$prop  => undef
	$name  => undef
	$check => undef
</%args>

<%init>

	my @localtime = localtime(); $localtime[4]++; $localtime[5] += 1900;

	# ��������� ������ ��� select'�...
	my @days = map { $_ => $_ } (1 .. 31);
	my $months = $m->comp('/contenido/components/get_months.msn');
	my @years = map { $_ => $_ } (1940 .. $localtime[5] + 5);

	if ($prop->{allow_null}) {
		unshift @days,    '', '';
		unshift @$months, '', '';
		unshift @years,   '', '';
	}

	# ������������ ������� ����...
	my ($year,$month,$day);
	if ($check) {
		$check =~ /(\d{4})-(\d{1,2})-(\d{1,2})/;
		($year, $month, $day) = ($1+0, $2+0, $3+0);
	} elsif(!$prop->{allow_null}) {
		($day,$month,$year) = @localtime[3 .. 5];
	}
	my $now = Contenido::DateTime->new;

</%init>

<& "/contenido/components/select.msn",  name => $name.'_day', values => \@days, check => $day &><& 
	'/contenido/components/select.msn', name => $name.'_month', values => $months, check => $month &><& 
	'/contenido/components/select.msn', name => $name.'_year', values => \@years, check => $year &> 
%  if ( ref $prop && exists $prop->{attr} ) {
<span style="padding-left:20px;"><a href="javascript:void(0)" onclick="set_<% $prop->{attr} %>_now()" style="color:red;">������!</a></span>
<script type="text/javascript">
<!--
function set_<% $prop->{attr} %>_now () {
   document.forms['form'].elements['<% $prop->{attr} %>_day'].value = '<% $now->day %>';
   document.forms['form'].elements['<% $prop->{attr} %>_month'].value = '<% $now->mon %>';
   document.forms['form'].elements['<% $prop->{attr} %>_year'].value = '<% $now->year %>';
}
//-->
</script>
%  }