Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 672:f55dc6599308

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 23 Feb 2021 14:42:17 +0200
parents 3904fcfeeb9a
children 57dd82ac2a06
comparison
equal deleted inserted replaced
671:3904fcfeeb9a 672:f55dc6599308
323 323
324 set urlprefix [qdb_qm $utable "urlprefix"] 324 set urlprefix [qdb_qm $utable "urlprefix"]
325 325
326 qdb_handle eval $usql { 326 qdb_handle eval $usql {
327 if {[string range $uquote 0 3] == "img:"} { 327 if {[string range $uquote 0 3] == "img:"} {
328 set uquote "$urlprefix[string range $uquote 4 end]" 328 set uquote "${urlprefix}[string range $uquote 4 end]"
329 } 329 }
330 qdb_msg $ucmd $utable $upublic $unick $uchan "fmt_get" [list $quoteID $uquote $uuser [utl_ctime $utime] $uvote] 330 qdb_msg $ucmd $utable $upublic $unick $uchan "fmt_get" [list $quoteID $uquote $uuser [utl_ctime $utime] $uvote]
331 return 1 331 return 1
332 } 332 }
333 333