Mercurial > hg > egg-tcls
changeset 634:fd1c56676648
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')"