From 36aa75be02ff29571830d9f529cd4515bfeebbab Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 6 Nov 2009 13:52:52 +0100
Subject: Support pingbacks.

Ignore-this: 534fc0ed2f9e22c9b6a92cde14bedf2f

darcs-hash:d70c51f9d5d9002dab339dd6ceb79fef2cd89f27
---
 main.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 239202b..1a8ce85 100644
--- a/main.lisp
+++ b/main.lisp
@@ -153,8 +153,8 @@
     (:moderate (let* ((id (getf *query* :id nil))
                       (type (getf *query* :type nil))
                       (acceptp (getf *query* :acceptp nil))
-                      (table (if (string= type "trackback")
-                                 'journal_trackback
+                      (table (cond ((string= type "trackback") 'journal_trackback)
+                                   ((string= type "pingback") 'journal_pingback)
                                  'journal_comment)))
                  (with-transaction ()
                    (when (and id type acceptp (string= acceptp "t"))
-- 
cgit v1.2.3