form validation for contact us

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
index 95b9b3d..16df788 100644
--- a/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
+++ b/lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs
@@ -893,10 +893,13 @@
 (defn render-contact-us-view []
   (GET "/contact-us/view" {:handler handler-contact-us-view}))
 
-;; contact-us-email
+;; contact-us-submit
 
 (defn on-contact-us-email-submit-clicked []
-  (render-contact-us-email-submit))
+  (when (-> (jquery "#contact-us-form")
+            (.get "0")
+            (.checkValidity))
+    (render-contact-us-email-submit)))
 
 (defn handler-contact-us-email-submit [response]
   (on-menu-clicked "/contact-us"))