Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added action parameter

  • Loading branch information...
commit 6dd8b17ee53f0b5ae273ccea178d4c58d55a60a5 1 parent 81da4f9
@vegashacker authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  form.scm
View
3  form.scm
@@ -92,6 +92,7 @@
#:use-if-exists (use-if-exists #f)
#:skip-br (skip-br #f)
#:class (css-class #f)
+ #:action (action "/")
#:auto-submit (auto-submit #f)
#:return-form-obj (return-form-obj #f)
#:on-done (on-done (lambda (rec) (redirect-to (setting *WEB_APP_URL*)))))
@@ -133,7 +134,7 @@
finally))))))
(let* ((form-id (number->string (random 1000000)))
(f `(form
- ((action "/")
+ ((action ,action)
(id ,form-id)
,@(splice-if css-class `(class ,css-class))
(method "post")

0 comments on commit 6dd8b17

Please sign in to comment.
Something went wrong with that request. Please try again.