Mercurial > hg > egg-tcls

diff weather.tcl @ 280:3893192d7aff rel-0_1_0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Fix a WTF.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 23 Jan 2015 12:32:06 +0200
parents f6dc673adfa1
children 259f093c9503
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 @@"]