Mercurial > hg > egg-tcls
changeset 280:3893192d7aff rel-0_1_0
weather: Fix a WTF.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 23 Jan 2015 12:32:06 +0200 |
parents | f6dc673adfa1 |
children | 83e202621ca7 5b997bee1745 |
files | weather.tcl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/weather.tcl Fri Jan 23 12:23:43 2015 +0200 +++ b/weather.tcl Fri Jan 23 12:32:06 2015 +0200 @@ -147,8 +147,8 @@ # Produce one location of weather data as a string +proc weather_get_data {udata ukey} { set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002" -proc weather_get_data {udata ukey} { if {[lindex $udata 1] == 0} { append str [weather_item $udata 5 ", @@"] append str [weather_item $udata 6 ", keli @@"]