Mercurial > hg > egg-tcls
changeset 48:506ce7f074e4
Cleanups. Add "not found" message for certain quote lookup requests.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 07 Sep 2011 14:10:20 +0300 |
parents | 6cf21069ac10 |
children | 7ecb0a0bfb36 |
files | quotedb.tcl |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/quotedb.tcl Wed Sep 07 14:09:49 2011 +0300 +++ b/quotedb.tcl Wed Sep 07 14:10:20 2011 +0300 @@ -291,11 +291,13 @@ qdb_log "$unick get random $utable" } - set uresults 0 quotedb eval $usql { - incr uresults qdb_msg $upublic $unick $uchan "#${quoteID}: $utext ($uuser, $uvote)" + return 1 } + + qdb_msg $upublic $unick $uchan "ei löydy." + return 0 }