• 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;