Mercurial > hg > egg-tcls

comparison tj.tcl @ 647:98e2254056b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Adjust few comments.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 17 Feb 2021 10:21:23 +0200
parents cf62cdc44568
children 4156adacdc31
comparison
equal deleted inserted replaced
646:cf62cdc44568 647:98e2254056b2
507 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg] 507 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
508 tj_log "$uerrmsg on SQL:\n$usql" 508 tj_log "$uerrmsg on SQL:\n$usql"
509 return 1 509 return 1
510 } 510 }
511 511
512 if {$nids < 1} { 512 if {$nids == 0} {
513 # No, error out
513 tj_msg $upublic $unick $uchan "err_no_such_id" [list $uid] 514 tj_msg $upublic $unick $uchan "err_no_such_id" [list $uid]
514 return 1 515 return 1
515 } 516 }
516 } 517 }
517 518
550 set rindex 0 551 set rindex 0
551 if {[utl_arg_get $rarglist rindex rarg 0]} { 552 if {[utl_arg_get $rarglist rindex rarg 0]} {
552 # Check for #id prefix 553 # Check for #id prefix
553 set notdefault [tj_get_id $rarg rindex uid] 554 set notdefault [tj_get_id $rarg rindex uid]
554 555
556 # Check if name is specified
555 if {[utl_arg_get $rarglist rindex rarg 0]} { 557 if {[utl_arg_get $rarglist rindex rarg 0]} {
558 # Validate it
556 set uname [tj_correct_handle $rarg] 559 set uname [tj_correct_handle $rarg]
557 if {$uname == ""} { 560 if {$uname == ""} {
558 tj_msg $upublic $unick $uchan "err_unknown_user" [list $rcmd] 561 tj_msg $upublic $unick $uchan "err_unknown_user" [list $rcmd]
559 return 1 562 return 1
560 } 563 }