# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613030575 -7200
# Node ID e7c88d4e917c896bc9a8e1d776d015b219754e2d
# Parent  efc0e49197466776a36b86bf8fdc4426ea26fdd2
tj: Only get clock once.

diff -r efc0e4919746 -r e7c88d4e917c tj.tcl
--- a/tj.tcl	Wed Feb 10 15:27:31 2021 +0200
+++ b/tj.tcl	Thu Feb 11 10:02:55 2021 +0200
@@ -167,8 +167,8 @@
 }
 
 
-proc tj_display_tjs {upublic unick uchan uname uid} {
-  set uclock [clock seconds]
+proc tj_display_tjs {upublic unick uchan uname uid uclock} {
+
   set nresults 0
   set usql "SELECT * FROM tj WHERE uuser='[utl_escape $uname]' AND utype=0 AND uid LIKE '[utl_escape $uid]'"
   tj_dbh eval $usql {
@@ -203,6 +203,7 @@
     return 1
   }
 
+  set uclock [clock seconds]
   set uhand [tj_correct_handle $uhand]
   set qadmin [matchattr $uhand n]
 
@@ -391,7 +392,6 @@
       set uname $uhand
     }
 
-    set uclock [clock seconds]
 
     set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uname]'"
     if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} {
@@ -452,7 +452,7 @@
       return 1
     }
 
-    tj_display_tjs $upublic $unick $uchan $uname $uid
+    tj_display_tjs $upublic $unick $uchan $uname $uid $uclock
   } else {
     # !tj [#<id>] [name]
     set uname $uhand
@@ -472,7 +472,7 @@
       set uid $tj_default_id
     }
 
-    tj_display_tjs $upublic $unick $uchan $uname $uid
+    tj_display_tjs $upublic $unick $uchan $uname $uid $uclock
   }
 
   return 1