Index: datetime.msn
===================================================================
--- datetime.msn (revision 58)
+++ datetime.msn (revision 59)
@@ -4,8 +4,26 @@
<& '/contenido/components/select.msn', name => $name.'_hour', values => \@hours, check => $hour &>
<& '/contenido/components/select.msn', name => $name.'_minute', values => \@minutes, check => $minute &>
+% if ( $prop->{noseconds} ) {
+
+% } else {
<& '/contenido/components/select.msn', name => $name.'_second', values => \@seconds, check => $second &>
-
+% }
+Сейчас!
+
<%args>
$prop
$name => undef
@@ -21,8 +39,13 @@
my @months = @{ $m->comp('/contenido/components/get_months.msn') };
my @years = map { $_ => $_ } ( $localtime[5] - 5 .. $localtime[5] + 5);
my @hours = map { $_ => sprintf('%02d', $_) } (0 .. 23);
- my @minutes = map { $_ => sprintf('%02d', $_) } (0 ..59);
- my @seconds = map { $_ => sprintf('%02d', $_) } (0 ..59);
+ my @minutes = map { $_ => sprintf('%02d', $_) } (0 .. 59);
+ my @seconds;
+ if ( exists $prop->{seconds_step} && $prop->{seconds_step} > 1 ) {
+ @seconds = grep { ($_ % $prop->{seconds_step}) == 0 } map { $_ => sprintf('%02d', $_) } (0 .. 59);
+ } else {
+ @seconds = map { $_ => sprintf('%02d', $_) } (0 .. 59);
+ }
if ($prop->{allow_null}) {
unshift @days, '', '';
@@ -40,4 +63,6 @@
} elsif(!$prop->{allow_null}) {
($second,$minute,$hour,$day,$month,$year) = @localtime[0 .. 5];
}
+ my $now = Contenido::DateTime->new;
+
%init>