Fix off by 1 hour

This commit is contained in:
prpr 2022-10-27 11:56:00 +01:00
parent b0ba26918a
commit 47f413b55d

View File

@ -319,7 +319,8 @@ proc render_timeline {usedhours} {
set tomorrow {}
# Midnight today.
set day [clock scan [clock format [midnight] -format {%Y %m %d %T}] \
set day [midnight]
set gday [clock scan [clock format $day -format {%Y %m %d %T}] \
-format {%Y %m %d %T} -gmt 1]
set elength [llength $events]
@ -345,7 +346,7 @@ proc render_timeline {usedhours} {
puts "<div class=\"ct_day $class\">"
puts "<div class=\"ct_row\">"
puts "<div class=ct_dayname>[clock format $day \
puts "<div class=ct_dayname>[clock format $gday \
-format {%a %d/%m/%Y} -gmt 1]</div>"
set pxpos [set padadj 0]
@ -411,6 +412,7 @@ proc render_timeline {usedhours} {
}
incr day 86400
incr gday 86400
# Close ct_day
puts "</div>"
}