-
datetime.msn
277 278 39 39 # Формируем данные для select'а... 40 40 my @days = map { $_ => $_ } (1..31); 41 41 my @months = @{ $m->comp('/contenido/components/get_months.msn') }; 42 my @years = map { $_ => $_ } ( $localtime[5] - 5 .. $localtime[5] + 5); 42 my $start_year = $check && $check =~ /(\d{4})/ ? int($1) - 5 : $localtime[5] - 5; 43 my @years = map { $_ => $_ } ( $start_year .. $localtime[5] + 5); 43 44 my @hours = map { $_ => sprintf('%02d', $_) } (0 .. 23); 44 45 my @minutes = map { $_ => sprintf('%02d', $_) } (0 .. 59); 45 46 my @seconds;