Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 530:a7e44605c930

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, 07 Jul 2020 14:22:16 +0300
parents 3046ee0e574d
children 717a1c84df4c
comparison
equal deleted inserted replaced
529:3046ee0e574d 530:a7e44605c930
39 exit 2 39 exit 2
40 } 40 }
41 41
42 42
43 #------------------------------------------------------------------------- 43 #-------------------------------------------------------------------------
44 ### Utility functions 44 proc qdb_log {arg} {
45 proc qdb_log {jarg} {
46 global qdb_logmsg qdb_name 45 global qdb_logmsg qdb_name
47
48 if {$qdb_logmsg != 0} { 46 if {$qdb_logmsg != 0} {
49 putlog "$qdb_name: $jarg" 47 putlog "$qdb_name: $arg"
50 } 48 }
51 } 49 }
52 50
53 51
54 proc qdb_qm {utable uid} { 52 proc qdb_qm {utable uid} {