Mercurial > hg > egg-tcls
changeset 336:bb4abe5cc235
Branch merge.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sat, 26 Sep 2015 14:39:47 +0300 |
parents | e6473e7083aa (diff) bff53f5bba5b (current diff) |
children | e01963cb88fd |
files | |
diffstat | 2 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/utillib.tcl Sat Sep 19 16:19:50 2015 +0300 +++ b/utillib.tcl Sat Sep 26 14:39:47 2015 +0300 @@ -15,7 +15,7 @@ append utl_html_ent_str "|||-|’|'|ü|ü|Ü|Ü|•|*|€|€" append utl_html_ent_str "|”|\"|‘|'|ä|ä|·|*|®|®|´|'" append utl_html_ent_str "|ö|ö|ö|ö|#|#|'|'|­||–|-|”|\"" -append utl_html_ent_str "|…|...|…|...|"|\"" +append utl_html_ent_str "|…|...|…|...|"|\"|­|" set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "|"]
--- a/weather.tcl Sat Sep 19 16:19:50 2015 +0300 +++ b/weather.tcl Sat Sep 26 14:39:47 2015 +0300 @@ -1,6 +1,6 @@ ########################################################################## # -# Weather v0.9 by Matti 'ccr' Hamalainen <ccr@tnsp.org> +# Weather v0.9.1 by Matti 'ccr' Hamalainen <ccr@tnsp.org> # (C) Copyright 2014-2015 Tecnic Software productions (TNSP) # # Requires data fetcher to be run as a cronjob, see fetch_weather.pl @@ -20,7 +20,7 @@ # No need to look below this line ########################################################################## set weather_name "Weather" -set weather_version "0.9" +set weather_version "0.9.1" ### Initialization messages @@ -223,9 +223,14 @@ } close $ufile - # Store min/max - set weather_data(w_min) $weather_data($wtemp_min_key) - set weather_data(w_max) $weather_data($wtemp_max_key) + # Store min/max + if {$wtemp_min_key != "" && $wtemp_max_key != ""} { + set weather_data(w_min) $weather_data($wtemp_min_key) + set weather_data(w_max) $weather_data($wtemp_max_key) + } else { + set weather_data(w_min) 0 + set weather_data(w_max) 0 + } } else { weather_log "Could not open data file: $uerrmsg" }