Mercurial > hg > egg-tcls

comparison tj.tcl @ 641:0b618c09063f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Use ustamp instead of rstamp here.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 16 Feb 2021 12:46:25 +0200
parents c11ee9fea4b8
children 5cbff6baebef
comparison
equal deleted inserted replaced
640:4dbad81bfdd9 641:0b618c09063f
334 } else { 334 } else {
335 set rdate [utl_sql_stamp_to_datetime $rstamp] 335 set rdate [utl_sql_stamp_to_datetime $rstamp]
336 set ustamp $rstamp 336 set ustamp $rstamp
337 } 337 }
338 338
339 set utjstr [tj_get_tj_str_delta $rstamp $uclock] 339 set utjstr [tj_get_tj_str_delta $ustamp $uclock]
340 set udate [tj_ctime $ustamp] 340 set udate [tj_ctime $ustamp]
341 341
342 # Max reminders .. 342 # Max reminders ..
343 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'" 343 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'"
344 if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} { 344 if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} {