Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 459:6acd372d36da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Do not update quote creation timestamp field when updating quote.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 21 Oct 2017 00:59:06 +0300
parents ac66900fd066
children ba7ed8f6d2ab
comparison
equal deleted inserted replaced
458:cfbe6acc1d73 459:6acd372d36da
185 } 185 }
186 186
187 qdb_handle eval $usql { 187 qdb_handle eval $usql {
188 set udiff [expr [unixtime] - $utime] 188 set udiff [expr [unixtime] - $utime]
189 if {$udiff < $maxdiff || $qoverride} { 189 if {$udiff < $maxdiff || $qoverride} {
190 set usql "UPDATE $utable SET utext='[utl_escape $uquote]', utime=[unixtime] WHERE id=$unum" 190 set usql "UPDATE $utable SET utext='[utl_escape $uquote]' WHERE id=$unum"
191 if {![qdb_sql_exec $upublic $unick $uchan $usql]} { 191 if {![qdb_sql_exec $upublic $unick $uchan $usql]} {
192 return 0 192 return 0
193 } else { 193 } else {
194 qdb_msg $upublic $unick $uchan $qdb_msg_update_ok [list $utable $unum $qextra] 194 qdb_msg $upublic $unick $uchan $qdb_msg_update_ok [list $utable $unum $qextra]
195 return 1 195 return 1