Mercurial > hg > egg-tcls
diff utillib.tcl @ 604:543f1d72361e
utillib: Cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 04 Feb 2021 18:02:43 +0200 |
parents | 76d19fa28753 |
children | a5e83abb51a8 |
line wrap: on
line diff
--- a/utillib.tcl Thu Feb 04 18:01:31 2021 +0200 +++ b/utillib.tcl Thu Feb 04 18:02:43 2021 +0200 @@ -120,11 +120,11 @@ # Return formatted time string for given UNIX timestamp -proc utl_ctime {utime} { - if {$utime == "" || $utime == "*"} { - set utime 0 +proc utl_ctime {ustamp} { + if {$ustamp == "" || $ustamp == "*"} { + set ustamp 0 } - return [clock format $utime -format "%d.%m.%Y %H:%M"] + return [clock format $ustamp -format "%d.%m.%Y %H:%M"] }