mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

missing e-mail

Browse source
This commit is contained in:
David Botton 2021-03-18 23:32:01 -04:00
parent bf0f278cb1
commit 4fd3f2dfdc
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-web.lisp
View file

@ -991,4 +991,4 @@ if confirmed or nil if canceled. CANCEL-TEXT is only displayed if modal is t"
(name-value win name)))))) (name-value win name))))))
fields))) fields)))
(funcall on-input result))) (funcall on-input result)))
:one-time t))) :one-time nil)))

6
tutorial/26-tutorial.lisp
View file

@ -76,12 +76,16 @@
("Name" :name) ("Name" :name)
("E-mail" :email)) ("E-mail" :email))
(lambda (data) (lambda (data)
(if (equal (cadr (assoc :email data)) "")
(clog-web-alert second-rung "Missing E-Mail"
"Please fill out E-mail" :time-out 2)
(progn
(setf (display second-rung) :none) (setf (display second-rung) :none)
(setf (hash (location body)) "rung3") (setf (hash (location body)) "rung3")
(setf (inner-html (attach-as-child body "rung3-answer")) (setf (inner-html (attach-as-child body "rung3-answer"))
(format nil "<br><br>Thank you ~A<br>Your information will (format nil "<br><br>Thank you ~A<br>Your information will
NOT be sent shortly.(DEMO)" NOT be sent shortly.(DEMO)"
(cadr (assoc :name data))))))) (cadr (assoc :name data)))))))))
;; rung-3 ;; rung-3
(let* ((third-rung (create-web-compositor body :html-id "rung3")) (let* ((third-rung (create-web-compositor body :html-id "rung3"))
(image (create-img third-rung :url-src "/img/yellow-clogs.jpg")) (image (create-img third-rung :url-src "/img/yellow-clogs.jpg"))