# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613053425 -7200
# Node ID b7e3a47ed0722e62024b7283154d37fb1e59d91d
# Parent  62cf145b67f881822e744ad4debc796a915cc024
tj: Add few comments.

diff -r 62cf145b67f8 -r b7e3a47ed072 tj.tcl
--- a/tj.tcl	Thu Feb 11 11:12:21 2021 +0200
+++ b/tj.tcl	Thu Feb 11 16:23:45 2021 +0200
@@ -468,9 +468,11 @@
       return 1
     }
 
+    # If empty, clear to global default id
     if {$uid == "" || $uid == "{}" || $uid == "*"} {
       set uid $tj_default_id
     } else {
+      # Check if a TJ exists with this id?
       set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]' AND uid='[utl_escape $uid]'"
       if {[catch {set nids [tj_dbh onecolumn $usql]} uerrmsg]} {
         tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]