Mercurial > hg > egg-tcls

changeset 93:4e02c0219afe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Insert NULL into title column when we didn't get a title.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 12 Sep 2011 17:46:55 +0300
parents f6f4595856ff
children b4fdb3300faa
files urllog.tcl
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Mon Sep 12 17:21:25 2011 +0300
+++ b/urllog.tcl	Mon Sep 12 17:46:55 2011 +0300
@@ -316,7 +316,12 @@
 proc urllog_addurl {urlStr urlNick urlHost urlChan urlTitle} {
   global urldb urllog_shorturl
 
-  set usql "INSERT INTO urls (utime,url,user,host,chan,title) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]', '[urllog_escape $urlChan]', '[urllog_escape $urlTitle]')"
+  if {$urlTitle == ""} {
+    set uins "NULL"
+  } else {
+    set uins "'[urllog_escape $urlTitle]'"
+  }
+  set usql "INSERT INTO urls (utime,url,user,host,chan,title) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]', '[urllog_escape $urlChan]', $uins)"
   if {[catch {urldb eval $usql} uerrmsg]} {
     urllog_log "$uerrmsg on SQL:\n$usql"
     return 0