Changeset 1987

Show
Ignore:
Timestamp:
09/29/06 01:16:40
Author:
miyagawa
Message:

fixed DoW thanks to typester

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/30boxes.pl

    r1977 r1987  
    129129 
    130130sub dow { 
    131     my @dow  = qw(Sun Mon Tue Wed Thu Fri Sat); 
     131    my @dow  = qw(Mon Tue Wed Thu Fri Sat Sun); 
    132132    my $date = shift; 
    133133    my($y, $m, $d) = split /-/, $date; 
    134     return $dow[ Date_DayOfWeek($m, $d, $y) ]; 
     134    return $dow[ Date_DayOfWeek($m, $d, $y) - 1 ]; 
    135135} 
    136136