Mercurial > hg > egg-tcls
comparison quotedb.tcl @ 589:b07ff5123baf
Oops.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 27 Jan 2021 10:57:13 +0200 |
parents | 03d3ec856e4d |
children | 7f7d8048ecb5 |
comparison
equal
deleted
inserted
replaced
588:dae8f6ad12c2 | 589:b07ff5123baf |
---|---|
58 set amsg [qdb_qm $atable $aid] | 58 set amsg [qdb_qm $atable $aid] |
59 set aname [qdb_qm $atable "name"] | 59 set aname [qdb_qm $atable "name"] |
60 | 60 |
61 # Map constant tokens | 61 # Map constant tokens |
62 set amsg [string map [list "@cmd@" $acmd] $amsg] | 62 set amsg [string map [list "@cmd@" $acmd] $amsg] |
63 set amsg [string map [list "@nick@" $anick] $amsg] | |
64 set amsg [string map [list "@name@" $aname] $amsg] | 63 set amsg [string map [list "@name@" $aname] $amsg] |
65 | 64 |
66 utl_msg_args $qdb_preferredmsg $apublic $anick $achan $amsg $aargs | 65 utl_msg_args $qdb_preferredmsg $apublic $anick $achan $amsg $aargs |
67 } | 66 } |
68 | 67 |