From d9500aa9e11cdacdea5f4f222ac63a5d841bee3a Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 4 Jun 2024 20:20:21 +0200 Subject: [PATCH] Simplify logic in functions --- src/handlers/questionnaire-submit.lisp | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/handlers/questionnaire-submit.lisp b/src/handlers/questionnaire-submit.lisp index 3ac3708..b114635 100644 --- a/src/handlers/questionnaire-submit.lisp +++ b/src/handlers/questionnaire-submit.lisp @@ -6,19 +6,17 @@ (survey (make-survey uri))) (and (= (length parts) 3) (string= (first parts) "survey") - (and (funcall survey 'id) - (every #'digit-char-p (second parts))) + (funcall survey 'id) (search "submit" (third parts))))) (defun questionnaire-submit-uri (request) (questionnaire-submit-uri-p (request-uri request))) -(defun ensure-data-file-exist (id &optional lang) - (ensure-directories-exist (format nil "~a~a/~a-~a.lisp" +(defun ensure-data-file-exist (survey-id) + (ensure-directories-exist (format nil "~a~a/~a.lisp" *survey-data-dir* - id - (generate-uuid) - lang))) + survey-id + (generate-uuid)))) (define-easy-handler (questionnaire-submit :uri #'questionnaire-submit-uri) nil (let ((post-params (post-parameters* *request*))