Mercurial > hg > egg-tcls

comparison tj.tcl @ 637:2f62fa434056

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Improve a comment.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 16 Feb 2021 12:29:36 +0200
parents c3911a8c28e5
children 5260156d9521
comparison
equal deleted inserted replaced
636:c3911a8c28e5 637:2f62fa434056
464 if {![utl_arg_get $rarglist rindex rarg 0] || ![tj_get_id $rarg rindex uid]} { 464 if {![utl_arg_get $rarglist rindex rarg 0] || ![tj_get_id $rarg rindex uid]} {
465 tj_msg $upublic $unick $uchan "help_default" 465 tj_msg $upublic $unick $uchan "help_default"
466 return 1 466 return 1
467 } 467 }
468 468
469 # If empty, clear to global default id 469 # If given ID is empty or *, clear to global default id
470 if {$uid == "" || $uid == "{}" || $uid == "*"} { 470 if {$uid == "" || $uid == "{}" || $uid == "*"} {
471 set uid $tj_default_id 471 set uid $tj_default_id
472 } else { 472 } else {
473 # Check if a TJ exists with this id? 473 # Check if a TJ exists with this id?
474 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]' AND uid='[utl_escape $uid]'" 474 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]' AND uid='[utl_escape $uid]'"