Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add option to disable sync-fallback

  • Loading branch information...
commit ac8d84d6476f127ec5e434bbc6f4a5418dc303d5 1 parent 94102dc
@vii authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/webapp/actions.lisp
View
4 src/webapp/actions.lisp
@@ -60,6 +60,7 @@
lambda-list)
,@body)))
(async t)
+ (sync-fallback t)
after-submit-js)
(force-list title-and-options)
(let ((body-ml
@@ -91,7 +92,8 @@
,@(when async
`(:onsubmit (js-attrib (return (let ((async-submit-success (async-submit-form this))) ,@after-submit-js async-submit-success)))))
:method :post
- :action ,action-link
+ ,@(when sync-fallback
+ `(:action ,action-link))
(<p
,title
,@body-ml
Please sign in to comment.
Something went wrong with that request. Please try again.