Mercurial > hg > egg-tcls

changeset 671:3904fcfeeb9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Rename qdb_get() to qdb_show() and remove extraneous unused argument.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 23 Feb 2021 14:41:42 +0200
parents fdd20366406e
children f55dc6599308
files quotedb.tcl
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/quotedb.tcl	Tue Feb 23 14:40:37 2021 +0200
+++ b/quotedb.tcl	Tue Feb 23 14:41:42 2021 +0200
@@ -302,7 +302,7 @@
 
 
 #-------------------------------------------------------------------------
-proc qdb_get {ucmd utable upublic unick uhost uhand uchan utext uindex} {
+proc qdb_show {ucmd utable upublic unick uhost uhand uchan uindex} {
   global qdb_handle
 
   set usql "SELECT total(${utable}_votes.vote) AS uvote, ${utable}.id AS quoteID, ${utable}.utext AS uquote, ${utable}.utime AS utime, ${utable}.user AS uuser FROM ${utable} LEFT JOIN ${utable}_votes ON ${utable}_votes.urlid = ${utable}.id"
@@ -452,16 +452,16 @@
 
   if {$utext == "" || $utext == {}} {
     # No arguments, assume random query
-    qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -1
+    qdb_show $ucmd $utable $upublic $unick $uhost $uhand $uchan -1
   } elseif {[regexp {^(stat|stats|tilasto|tilastot)$} $utext]} {
     # Statistics
     qdb_stats $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext
   } elseif {[regexp {^(last|latest|uusin|viimeisin)$} $utext]} {
     # Latest added
-    qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext -2
+    qdb_show $ucmd $utable $upublic $unick $uhost $uhand $uchan -2
   } elseif {[regexp {^([0-9]+)$} $utext -> unum]} {
     # Numeric argument, assume id query
-    qdb_get $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $unum
+    qdb_show $ucmd $utable $upublic $unick $uhost $uhand $uchan $unum
   } elseif {[regexp {^top\s*([0-9]+)?$} $utext -> uargs]} {
     # Toplist of quotes
     qdb_toplist $ucmd $utable $upublic $unick $uhost $uhand $uchan $utext $uargs