Mercurial > hg > egg-tcls
changeset 239:ae9d83ec50d5
weather: Fix data display.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Mon, 19 Jan 2015 16:32:02 +0200 |
| parents | a1d6e2d8789e |
| children | 302faa300510 |
| files | weather.tcl |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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"]