Mercurial > hg > egg-tcls
changeset 47:6cf21069ac10
Show score/rating for single quotedb quotes when requested by index or as random.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 07 Sep 2011 14:09:49 +0300 |
parents | 80fa09f868d4 |
children | 506ce7f074e4 |
files | quotedb.tcl |
diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/quotedb.tcl Wed Sep 07 14:08:42 2011 +0300 +++ b/quotedb.tcl Wed Sep 07 14:09:49 2011 +0300 @@ -280,19 +280,21 @@ proc qdb_get {utable unick uchan uindex upublic} { global quotedb - set usql "SELECT id AS quoteID, utext AS utext, user AS uuser FROM $utable" + set usql "SELECT total(${utable}_votes.vote) AS uvote, ${utable}.id AS quoteID, ${utable}.utext AS utext, ${utable}.user AS uuser FROM ${utable} LEFT JOIN ${utable}_votes ON ${utable}_votes.urlid = ${utable}.id" +# set usql "$usql GROUP BY ${utable}.id" +# set usql "SELECT id AS quoteID, utext AS utext, user AS uuser FROM $utable" if {$uindex >= 0} { - set usql "$usql WHERE id=$uindex" + set usql "$usql WHERE ${utable}.id=$uindex GROUP BY ${utable}.id" qdb_log "$unick searched $utable #$uindex" } else { - set usql "$usql ORDER BY RANDOM() LIMIT 1" + set usql "$usql GROUP BY ${utable}.id ORDER BY RANDOM() LIMIT 1" qdb_log "$unick get random $utable" } set uresults 0 quotedb eval $usql { incr uresults - qdb_msg $upublic $unick $uchan "#${quoteID}: $utext ($uuser)" + qdb_msg $upublic $unick $uchan "#${quoteID}: $utext ($uuser, $uvote)" } }