Mercurial > hg > egg-tcls
comparison quotedb.tcl @ 556:e310d223dd12
quotedb: Rename a function argument.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 09 Jul 2020 12:24:56 +0300 |
parents | 85fe3bc36307 |
children | 06d984a92a28 |
comparison
equal
deleted
inserted
replaced
555:b6b92f64013c | 556:e310d223dd12 |
---|---|
39 exit 2 | 39 exit 2 |
40 } | 40 } |
41 | 41 |
42 | 42 |
43 #------------------------------------------------------------------------- | 43 #------------------------------------------------------------------------- |
44 proc qdb_log {arg} { | 44 proc qdb_log {umsg} { |
45 global qdb_log_enable qdb_name | 45 global qdb_log_enable qdb_name |
46 if {$qdb_log_enable != 0} { | 46 if {$qdb_log_enable != 0} { |
47 putlog "$qdb_name: $arg" | 47 putlog "$qdb_name: $umsg" |
48 } | 48 } |
49 } | 49 } |
50 | 50 |
51 | 51 |
52 proc qdb_qm {utable uid} { | 52 proc qdb_qm {utable uid} { |