Mercurial > hg > egg-tcls

comparison weather.tcl @ 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 a09401d4ac8c
children 8a6cca58e853
comparison
equal deleted inserted replaced
687:7f1a0d25aa40 688:2723be85343a
327 lappend result [weather_get_str $uvalue $weather_msg_list_station] 327 lappend result [weather_get_str $uvalue $weather_msg_list_station]
328 } 328 }
329 } 329 }
330 330
331 if {[llength $result] > 0} { 331 if {[llength $result] > 0} {
332 set res "" 332 set res [join [lrange $result 0 10] " ; "]
333 if {[llength $result] > 10} { 333 if {[llength $result] > 10} {
334 set res [weather_qm "stations_limit"] 334 append res [weather_qm "stations_limit"]
335 } 335 }
336 append res [join [lrange $result 0 10] " ; "]
337 } else { 336 } else {
338 set res [weather_qm "stations_no_matches"] 337 set res [weather_qm "stations_no_matches"]
339 } 338 }
340 339
341 weather_msg $upublic $unick $uchan "stations_list" [list $res] 340 weather_msg $upublic $unick $uchan "stations_list" [list $res]