Start week on monday

This commit is contained in:
Peter J. Holzer 2022-03-13 21:40:54 +01:00 committed by Peter J. Holzer
parent d812f8abde
commit 897bdf5628
1 changed files with 1 additions and 1 deletions

View File

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