# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1449910643 -7200
# Node ID 2f7f18371b657f6cd3572d921273c249603ea610
# Parent  3b8ffc6eca6d4921f78892d015d9bbc1a8416351
weather: Adjust time handling.

diff -r 3b8ffc6eca6d -r 2f7f18371b65 weather.tcl
--- a/weather.tcl	Fri Dec 11 23:13:54 2015 +0200
+++ b/weather.tcl	Sat Dec 12 10:57:23 2015 +0200
@@ -144,11 +144,11 @@
   set uvals(station) [lindex $udata 0]
   set uvals(type) [lindex $udata 1]
   set uvals(vtime) [lindex $udata 2]
-  set utime_d [expr [clock seconds] - $uvals(vtime)]
-  if {$utime_d < 3600} {
+
+  if {[expr [clock seconds] - $uvals(vtime)] < 3600} {
     set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M"]
   } else {
-    set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M (%D)"]
+    set uvals(ctime) [clock format $uvals(vtime) -format "%H:%M (%d.%m.%Y)"]
   }
 
   set uvals(temp) [lindex $udata 3]
@@ -165,9 +165,6 @@
 
   # Transform the format list
   set astr ""
-  if {$utime_d >= 3600} {
-    set astr "** "
-  }
   foreach aitem $weather_msg_result {
     set atmp $aitem
     foreach {akey aval} [array get uvals] {