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.
|
# 30 ... 90 days: 1 tick/week.
|
||||||
|
|
||||||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
|
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,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($firsttime);
|
||||||
$sec = $min = $hour = 0;
|
$sec = $min = $hour = 0;
|
||||||
|
|
Loading…
Reference in New Issue