diff options
author | Tom Willemse | 2013-07-07 22:36:51 +0200 |
---|---|---|
committer | Tom Willemse | 2013-07-07 22:36:51 +0200 |
commit | aece802c32b638f805a57496a89e8ab1edc6223c (patch) | |
tree | 95dbfbb2398f9b68d0aee756d0b0ceec97624599 /scrumli.lisp | |
parent | eb32c34e1f32cc493c0e1bfd171ba29a5ef1c2aa (diff) | |
download | scrumli-aece802c32b638f805a57496a89e8ab1edc6223c.tar.gz scrumli-aece802c32b638f805a57496a89e8ab1edc6223c.zip |
Reload stories immediately
Reload the stories list immediately after successfully adding a new
story.
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/scrumli.lisp b/scrumli.lisp index 4659457..778b1aa 100644 --- a/scrumli.lisp +++ b/scrumli.lisp @@ -97,12 +97,14 @@ parameters) ,@body)) -(define-route stories-new ("stories/new" :method :post) +(define-route stories-new ("stories/new" :method :post + :content-type "text/json") (if (logged-in-p) (with-post-parameters ("role" "necessity" "headline" "content") (post-story role necessity headline content (hunchentoot:session-value :username)) - 200) + (with-output-to-string (out) + (encode-json '((status . "ok")) out))) 403)) (define-route tasks-new ("stories/tasks/new" :method :post) |