Revision 278

Date:
2013/02/12 14:24:32
Author:
ahitrov
Revision Log:
Year reconstruction for old documents
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/contenido/components/inputs/datetime.msn

     
    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;