Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 648:0f206ab6a0e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Add few comments.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 17 Feb 2021 10:29:06 +0200
parents 56f204df1323
children 96a659f66be9
comparison
equal deleted inserted replaced
647:98e2254056b2 648:0f206ab6a0e4
39 39
40 proc qdb_qm {utable uid} { 40 proc qdb_qm {utable uid} {
41 global qdb_messages 41 global qdb_messages
42 set qid "${utable}_${uid}" 42 set qid "${utable}_${uid}"
43 43
44 # Check if table-specific message exists
44 if {[info exists qdb_messages($qid)]} { 45 if {[info exists qdb_messages($qid)]} {
45 return $qdb_messages($qid) 46 return $qdb_messages($qid)
47 # Check if generic message exists
46 } elseif {[info exists qdb_messages($uid)]} { 48 } elseif {[info exists qdb_messages($uid)]} {
47 return $qdb_messages($uid) 49 return $qdb_messages($uid)
48 } else { 50 } else {
51 # Nothing .. return id string
49 return $uid 52 return $uid
50 } 53 }
51 } 54 }
52 55
53 56