Mercurial > hg > egg-tcls
comparison quotedb.tcl @ 595:7f7d8048ecb5
Cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 03 Feb 2021 11:05:59 +0200 |
parents | b07ff5123baf |
children | 6997201c7b71 |
comparison
equal
deleted
inserted
replaced
594:a488be0f45e0 | 595:7f7d8048ecb5 |
---|---|
30 | 30 |
31 #------------------------------------------------------------------------- | 31 #------------------------------------------------------------------------- |
32 proc qdb_log {umsg} { | 32 proc qdb_log {umsg} { |
33 global qdb_log_enable qdb_name | 33 global qdb_log_enable qdb_name |
34 if {$qdb_log_enable != 0} { | 34 if {$qdb_log_enable != 0} { |
35 putlog "$qdb_name: $umsg" | 35 putlog "${qdb_name}: $umsg" |
36 } | 36 } |
37 } | 37 } |
38 | 38 |
39 | 39 |
40 proc qdb_qm {utable uid} { | 40 proc qdb_qm {utable uid} { |