# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1421677922 -7200
# Node ID ae9d83ec50d5cf806b8cc4bd41f4a3b6c4efec57
# Parent  a1d6e2d8789eaa088e752fb3c4f94b1235292164
weather: Fix data display.

diff -r a1d6e2d8789e -r ae9d83ec50d5 weather.tcl
--- a/weather.tcl	Mon Jan 19 16:26:42 2015 +0200
+++ b/weather.tcl	Mon Jan 19 16:32:02 2015 +0200
@@ -208,9 +208,9 @@
 proc weather_get_data {ukey udata} {
   set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002"
   if {[lindex $udata 1] == 0} {
-    append str [weather_item $udata 4 ", @@"]
-    append str [weather_item $udata 5 ", keli @@"]
-    append str [weather_item $udata 6 ", tien pinta @@°C"]
+    append str [weather_item $udata 5 ", @@"]
+    append str [weather_item $udata 6 ", keli @@"]
+    append str [weather_item $udata 4 ", tien pinta @@°C"]
   } else {
     append str [weather_item $udata 4 ", kosteus \002@@%\002"]
     append str [weather_item $udata 5 ", tuuli \002@@\002 m/s"]