# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315748928 -10800
# Node ID 3762c621d1c32a1699d9186a464451771e04eeff
# Parent  eb728cebfe2c97a8973cc5d08a68cfd09af87246
urllog: Cosmetics.

diff -r eb728cebfe2c -r 3762c621d1c3 urllog.tcl
--- a/urllog.tcl	Sat Sep 10 18:17:20 2011 +0300
+++ b/urllog.tcl	Sun Sep 11 16:48:48 2011 +0300
@@ -257,7 +257,7 @@
 
 #-------------------------------------------------------------------------
 proc urllog_get_short {utime} {
-  global urllog_shorturl urllog_shorturl_prefix urllog_shorturl
+  global urllog_shorturl_prefix
 
   set ustr "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
   set ulen [string length $ustr]
@@ -274,6 +274,7 @@
 #-------------------------------------------------------------------------
 proc urllog_chop_url {url} {
   global urllog_shorturl_orig
+
   if {[string length $url] > $urllog_shorturl_orig} {
     return "[string range $url 0 $urllog_shorturl_orig]..."
   } else {
@@ -566,9 +567,10 @@
   } else {
     set fquery ""
   }
+
   set iresults 0
-  set query "SELECT id AS urlID, utime AS utime, url AS uurl, user AS uuser, host AS uhost FROM urls $fquery ORDER BY utime DESC LIMIT $ulimit"
-  urldb eval $query {
+  set usql "SELECT id AS urlID, utime AS utime, url AS uurl, user AS uuser, host AS uhost FROM urls $fquery ORDER BY utime DESC LIMIT $ulimit"
+  urldb eval $usql {
     incr iresults
     set shortURL $uurl
     if {$urllog_shorturl != 0 && $urlID != ""} {