Mercurial > hg > egg-tcls

changeset 634:fd1c56676648

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Use uclock uniformly in tj_cmd.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 16 Feb 2021 12:27:41 +0200
parents bc87660aa400
children 4fbe70d3b63a
files tj.tcl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/tj.tcl	Tue Feb 16 12:26:40 2021 +0200
+++ b/tj.tcl	Tue Feb 16 12:27:41 2021 +0200
@@ -290,7 +290,7 @@
       }
 
       # Compute target timestamp
-      set rstamp [expr [clock seconds] + ($rdays * 24 * 60 * 60) + ($rhours * 60 * 60)]
+      set rstamp [expr $uclock + ($rdays * 24 * 60 * 60) + ($rhours * 60 * 60)]
     } else {
       # Only description, if any
       if {![tj_arg_rest $rarglist 1 rdesc]} {
@@ -332,7 +332,7 @@
       set ustamp $rstamp
     }
 
-    set utjstr [tj_get_tj_str_delta $rstamp]
+    set utjstr [tj_get_tj_str_delta $rstamp $uclock]
     set udate [tj_ctime $ustamp]
 
     # Max reminders ..
@@ -349,7 +349,7 @@
       return 1
     }
 
-    set ucreated [utl_sql_stamp_to_datetime [clock seconds]]
+    set ucreated [utl_sql_stamp_to_datetime $uclock]
     if {$umode} {
       # Insert new entry
       set usql "INSERT INTO tj (uid,uuser,ucreated,uupdated,udesc,utype,utarget) VALUES ('[utl_escape $uid]', '[utl_escape $uhand]', '$ucreated', '$ucreated', '[utl_escape $rdesc]', 0, '$rdate')"