Start week on monday
This commit is contained in:
parent
d812f8abde
commit
897bdf5628
|
@ -598,7 +598,7 @@ sub get_ticks {
|
|||
# 30 ... 90 days: 1 tick/week.
|
||||
|
||||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
|
||||
$firsttime -= 86400 * $wday;
|
||||
$firsttime -= 86400 * (($wday + 6) % 7);
|
||||
|
||||
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
|
||||
$sec = $min = $hour = 0;
|
||||
|
|
Loading…
Reference in New Issue