Mercurial > hg > egg-tcls

diff quotedb.tcl @ 48:506ce7f074e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 301df7d15861
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
 }