diff options
Diffstat (limited to 'lisp/webapps')
| -rw-r--r-- | lisp/webapps/bogenherr/clojurescript/bogenherr/src/core.cljs | 7 |
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")) |