Mercurial > hg > egg-tcls

changeset 297:ecd465aab52e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: 10L.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 26 Jan 2015 15:23:33 +0200
parents a7455b0dc144
children 67e43d6f5c41
files urllog.tcl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Mon Jan 26 14:14:17 2015 +0200
+++ b/urllog.tcl	Mon Jan 26 15:23:33 2015 +0200
@@ -188,7 +188,7 @@
   global urldb urlmsg_alreadyknown urllog_shorturl
 
   set usql "SELECT id AS uid, utime AS utime, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE url='[utl_escape $urlStr]'"
-  $usql foreach urow {
+  urldb eval $usql {
     urllog_log "URL said by $urlNick ($urlStr) already known"
     if {$urllog_shorturl != 0} {
       set qstr "[urllog_get_short $uid] "