diff options
author | Tom Willemse | 2013-08-18 23:19:25 +0200 |
---|---|---|
committer | Tom Willemse | 2013-08-18 23:19:25 +0200 |
commit | bb2f75ec1ccb662e1a71a8e4f23fe3dcfbf8bafe (patch) | |
tree | a6682d8490044d6f9d2db1c613654e2ccdc693bc /scrumli.lisp | |
parent | 321d6b199fffd863517731cf27b4f11e0d6bcb9b (diff) | |
download | scrumli-bb2f75ec1ccb662e1a71a8e4f23fe3dcfbf8bafe.tar.gz scrumli-bb2f75ec1ccb662e1a71a8e4f23fe3dcfbf8bafe.zip |
When selecting the task to replace the task with based on priority, be
sure to limit the options to tasks with the same story id.
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/scrumli.lisp b/scrumli.lisp index 18fce1e..a3c5871 100644 --- a/scrumli.lisp +++ b/scrumli.lisp @@ -208,17 +208,16 @@ (if (logged-in-p) (let ((id (getf params :|id|)) (dir (getf params :dir))) - (story-change-priority - 'story id (intern (string-upcase dir) :keyword)) + (story-change-priority id (intern (string-upcase dir) :keyword)) (list 200 '(:content-type "text/json") (encode-json-to-string '((status . "ok"))))) '(403))) (defun task-move-json/post (params) (if (logged-in-p) - (let ((id (getf params :|id|))) - (story-change-priority - 'task id (intern (string-upcase (getf params :dir)) :keyword)) + (let ((id (getf params :|id|)) + (dir (getf params :dir))) + (task-change-priority id (intern (string-upcase dir) :keyword)) (list 200 '(:content-type "text/json") (encode-json-to-string '((status . "ok"))))) '(403))) |