From 3ce458b5af552ca44080d3b4f7c8abd5b8fc2731 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Fri, 25 Nov 2011 12:40:50 +0100 Subject: Wiki: Skip database update when a page is submitted unmodified. --- src/mulk/benki/wiki.clj | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/mulk/benki/wiki.clj b/src/mulk/benki/wiki.clj index 40a7a03..3a5a5ec 100644 --- a/src/mulk/benki/wiki.clj +++ b/src/mulk/benki/wiki.clj @@ -103,12 +103,14 @@ (select (where (=* :title title))) (sort [:date#desc])) revision (first @revisions) - page (:page revision)] + page (:page revision) + dbcontent (unwikilinkify content)] (if-let [user (Integer. (session/get :user))] (let [page-id (if page page (:id (insert-empty-page)))] - (sql/insert-values - :wiki_page_revisions - [:page :title :content :author :format] - [page-id title (unwikilinkify content) user "html5"]) - {:stetus 200, :headers {}, :body (wikilinkify (unwikilinkify content))}) + (when-not (= (:content revision) dbcontent) ;skip if content unmodified + (sql/insert-values + :wiki_page_revisions + [:page :title :content :author :format] + [page-id title dbcontent user "html5"])) + {:stetus 200, :headers {}, :body (wikilinkify dbcontent)}) {:status 403, :headers {}, :body ""})))) -- cgit v1.2.3