diff options
Diffstat (limited to 'haunt/jakob/dynamic/capabilities/comments.scm')
| -rw-r--r-- | haunt/jakob/dynamic/capabilities/comments.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/haunt/jakob/dynamic/capabilities/comments.scm b/haunt/jakob/dynamic/capabilities/comments.scm index 3e873a6..72067b4 100644 --- a/haunt/jakob/dynamic/capabilities/comments.scm +++ b/haunt/jakob/dynamic/capabilities/comments.scm @@ -81,12 +81,10 @@ This is a wrapper around `get-comments-by-slug'." (assoc "name" form-data) (assoc "comment" form-data) (assoc "captcha" form-data) - (assoc "solution" form-data) - (assoc "solution-mac" form-data) - (validate-captcha + (assoc "captcha-id" form-data) + (validate-captcha! (assoc-value form-data "captcha") - (assoc-value form-data "solution") - (assoc-value form-data "solution-mac")))) + (string->number (assoc-value form-data "captcha-id"))))) (define (insert-comment form-data) (exec-query conn "INSERT INTO comments (submitted, slug, name, subject, |