Add tasks to stories

1 files changed, 7 insertions, 0 deletions

diff --git a/scrumli.lisp b/scrumli.lisp
index ef2b66a..0f563d9 100644
--- a/scrumli.lisp
+++ b/scrumli.lisp
@@ -80,6 +80,13 @@
         200)
       403))
 
+(define-route tasks-new ("stories/:id/tasks/new" :method :post)
+  (if (logged-in-p)
+      (let ((description (hunchentoot:post-parameter "description")))
+        (post-task id description (hunchentoot:session-value :username))
+        200)
+      403))
+
 (define-route stories-state ("stories/state" :method :post)
   (if (logged-in-p)
       (let* ((id (hunchentoot:post-parameter "id"))