Mercurial > hg > egg-tcls

changeset 688:2723be85343a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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"]
     }