# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613471261 -7200
# Node ID fd1c56676648341191b62b4274e3c16b66a2f70e
# Parent  bc87660aa400e5326378ad7744ee020944dba2a7
tj: Use uclock uniformly in tj_cmd.

diff -r bc87660aa400 -r fd1c56676648 tj.tcl
--- 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')"