Mercurial > hg > egg-tcls
changeset 632:68b8cf87e86e
tj: Rename variable.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 15 Feb 2021 13:42:42 +0200 |
parents | 9596cd122639 |
children | bc87660aa400 |
files | tj.tcl |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Mon Feb 15 13:42:10 2021 +0200 +++ b/tj.tcl Mon Feb 15 13:42:42 2021 +0200 @@ -337,15 +337,15 @@ # Max reminders .. set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'" - if {[catch {set nreminders [tj_dbh onecolumn $usql]} uerrmsg]} { + if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} { tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg] tj_log "$uerrmsg on SQL:\n$usql" return 1 } # Check for maximum reminders - if {$nreminders > 5} { - tj_msg $upublic $unick $uchan "err_too_many" [list $nreminders] + if {$nitems > 5} { + tj_msg $upublic $unick $uchan "err_too_many" [list $nitems] return 1 }