changeset 108:d9de3870b72e

tj: Use append for better string manipulation.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 14 Sep 2011 19:34:23 +0300
parents 92b42a867af4
children 74cb254dbf09
files tj.tcl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/tj.tcl	Wed Sep 14 19:21:48 2011 +0300
+++ b/tj.tcl	Wed Sep 14 19:34:23 2011 +0300
@@ -171,8 +171,8 @@
   }
 
   if {$tunnit > 0} {
-    if {$aamut > 0} { set lause "$lause ja" }
-    set lause "$lause $tunnit tuntia"
+    if {$aamut > 0} { append lause " ja " }
+    append lause "$tunnit tuntia"
   }
 
   if {$aamut == 0 && $deltatj > 0} {