From 315838f9f666ab0196ff1f27c9604b5a2f2bce50 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 13 Mar 2011 20:57:12 +0100 Subject: Support article editing. --- mulkcms-hunchentoot.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mulkcms-hunchentoot.lisp') diff --git a/mulkcms-hunchentoot.lisp b/mulkcms-hunchentoot.lisp index 0b5cb87..befdc09 100644 --- a/mulkcms-hunchentoot.lisp +++ b/mulkcms-hunchentoot.lisp @@ -19,7 +19,7 @@ (defun dispatch-mulkcms-request (request) (let* ((relative-path (subseq (script-name request) 1))) - (mulkcms::find-request-handler relative-path (get-parameters*)))) + (mulkcms::find-request-handler relative-path (append (get-parameters*) (post-parameters*))))) (defun setup-handlers () (setq *dispatch-table* -- cgit v1.2.3