summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mulkcms.lisp18
1 files changed, 9 insertions, 9 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp
index b5083b3..9df7237 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -450,8 +450,8 @@
"draft")
:row)
(query "SELECT * FROM article_revisions
- WHERE id = $1
- AND article = $2"
+ WHERE id = $1
+ AND article = $2"
(parse-integer
(cdr (assoc "revision"
params
@@ -466,16 +466,16 @@
params
:test #'equal))))
(query "INSERT INTO article_revision_parenthood(parent, child)
- VALUES ($1, $2)"
+ VALUES ($1, $2)"
(parse-integer (cdr (assoc "revision"
params
:test #'equal)))
(first revision)
:none)
(query "INSERT INTO article_revision_characteristics(revision, characteristic, value)
- SELECT $2, characteristic, value
- FROM article_revision_characteristics
- WHERE revision = $1"
+ SELECT $2, characteristic, value
+ FROM article_revision_characteristics
+ WHERE revision = $1"
(parse-integer (cdr (assoc "revision"
params
:test #'equal)))
@@ -497,9 +497,9 @@
(lambda ()
(with-db
(let* ((page-template-name (query "SELECT page_template FROM articles
- JOIN article_types
- ON articles.type = article_types.id
- WHERE articles.id = $1"
+ JOIN article_types
+ ON articles.type = article_types.id
+ WHERE articles.id = $1"
article
:single!))
(article-params (find-article-params article characteristics t))