Changeset 6660

Timestamp:

Dec 6, 2016 1:19:03 PM (7 years ago)

Author:

ldelgass

Message:

Fix time conversion (strip leading zeroes from min/sec to prevent them being
interpreted as octal by expr).

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/mapviewer.tcl

@@ -2659 +2659 @@
     set hrs [clock format $timeval -format %k -gmt 1]
     set min [clock format $timeval -format %M -gmt 1]
+    # Strip leading zeroes
+    scan $min %d min
     set sec [clock format $timeval -format %S -gmt 1]
+    # Strip leading zeroes
+    scan $sec %d sec
     set val [expr {$hrs + $min/60.0 + $sec/3600.0}]
 }