summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp17
-rw-r--r--schema.sql4
2 files changed, 14 insertions, 7 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp
index 9294e0d..3acb9a1 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -341,12 +341,17 @@
(defun paramify-comment (comment-revision-data)
(destructuring-bind (crid comment date content author format status
- article-revision &rest args)
+ article-revision submitter-ip user-agent
+ &rest args)
comment-revision-data
- (declare (ignore args crid status format))
+ (declare (ignore args crid status format submitter-ip user-agent))
(destructuring-bind (author-name author-website)
- (query "SELECT name, website FROM users WHERE id = $1" author :row)
- (let ((article (query "SELECT article FROM article_revisions WHERE id = $1"
+ (query "SELECT name, website FROM users WHERE id = $1"
+ author
+ :row)
+ (let ((article (query "SELECT article
+ FROM article_revisions
+ WHERE id = $1"
article-revision
:single!)))
(list :publishing-date date
@@ -744,7 +749,9 @@
WHERE articles.id = $1"
article
:single!))
- (article-params (find-article-params article characteristics t))
+ (article-params (find-article-params article
+ characteristics
+ t))
(page-template (template page-template-name))
(template-params (list :title (getf article-params :title)
:root *base-uri*
diff --git a/schema.sql b/schema.sql
index b4ce0bc..1efe049 100644
--- a/schema.sql
+++ b/schema.sql
@@ -116,11 +116,11 @@ CREATE TABLE comment_revisions(
date TIMESTAMP DEFAULT now(),
content VARCHAR NOT NULL,
author INTEGER,
- submitter_ip INET,
- submitter_user_agent VARCHAR,
format VARCHAR NOT NULL,
status VARCHAR NOT NULL,
article_revision INTEGER,
+ submitter_ip INET,
+ submitter_user_agent VARCHAR,
PRIMARY KEY (id),
FOREIGN KEY (comment) REFERENCES comments,
FOREIGN KEY (author) REFERENCES users,