Mercurial > hg > egg-tcls
changeset 688:2723be85343a
weather: Cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 22 Jun 2023 13:27:32 +0300 |
parents | 7f1a0d25aa40 |
children | 299a17b98f84 |
files | weather.tcl |
diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/weather.tcl Thu Jun 15 13:25:32 2023 +0300 +++ b/weather.tcl Thu Jun 22 13:27:32 2023 +0300 @@ -329,11 +329,10 @@ } if {[llength $result] > 0} { - set res "" + set res [join [lrange $result 0 10] " ; "] if {[llength $result] > 10} { - set res [weather_qm "stations_limit"] + append res [weather_qm "stations_limit"] } - append res [join [lrange $result 0 10] " ; "] } else { set res [weather_qm "stations_no_matches"] }