Mercurial > hg > egg-tcls

comparison tj.tcl @ 632:68b8cf87e86e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Rename variable.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 15 Feb 2021 13:42:42 +0200
parents 9596cd122639
children bc87660aa400
comparison
equal deleted inserted replaced
631:9596cd122639 632:68b8cf87e86e
335 set utjstr [tj_get_tj_str_delta $rstamp] 335 set utjstr [tj_get_tj_str_delta $rstamp]
336 set udate [tj_ctime $ustamp] 336 set udate [tj_ctime $ustamp]
337 337
338 # Max reminders .. 338 # Max reminders ..
339 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'" 339 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uhand]'"
340 if {[catch {set nreminders [tj_dbh onecolumn $usql]} uerrmsg]} { 340 if {[catch {set nitems [tj_dbh onecolumn $usql]} uerrmsg]} {
341 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg] 341 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
342 tj_log "$uerrmsg on SQL:\n$usql" 342 tj_log "$uerrmsg on SQL:\n$usql"
343 return 1 343 return 1
344 } 344 }
345 345
346 # Check for maximum reminders 346 # Check for maximum reminders
347 if {$nreminders > 5} { 347 if {$nitems > 5} {
348 tj_msg $upublic $unick $uchan "err_too_many" [list $nreminders] 348 tj_msg $upublic $unick $uchan "err_too_many" [list $nitems]
349 return 1 349 return 1
350 } 350 }
351 351
352 set ucreated [utl_sql_stamp_to_datetime [clock seconds]] 352 set ucreated [utl_sql_stamp_to_datetime [clock seconds]]
353 if {$umode} { 353 if {$umode} {