Mercurial > hg > egg-tcls

comparison weather.tcl @ 569:1fbee4891dbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Add kludge to always have "value" for "temp" token.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 21 Jul 2020 19:01:37 +0300
parents 1ef78f020573
children 14dfb925a64a
comparison
equal deleted inserted replaced
568:1ef78f020573 569:1fbee4891dbc
252 if {[expr [clock seconds] - $uvals(vtime)] < 3600} { 252 if {[expr [clock seconds] - $uvals(vtime)] < 3600} {
253 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"] 253 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"]
254 } else { 254 } else {
255 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M (%d.%m.%Y)"] 255 set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M (%d.%m.%Y)"]
256 } 256 }
257
258 # Kludge for always having a value for "temp"
259 if {$uvals(temp) == ""} { set uvals(temp) "???" }
257 260
258 set astr "" 261 set astr ""
259 foreach aitem $umsg { 262 foreach aitem $umsg {
260 set atmp $aitem 263 set atmp $aitem
261 set aok 1 264 set aok 1