WIP shop

1 files changed, 5 insertions, 3 deletions

diff --git a/forms.fnl b/forms.fnl
index 9b035e1..c75daec 100644
--- a/forms.fnl
+++ b/forms.fnl
@@ -245,9 +245,11 @@
            (table.concat
             (icollect [_ field (ipairs group.fields)]
               (field.html (. data field.name) (. errors field.name))))]))
-      (HTML [:button {:type "submit"} "Сохранить"])))]))
+      (HTML [:button {:type "submit"
+                      :onclick "this.disabled = true; this.form.submit();"}
+              "Сохранить"])))]))
 
-(fn convert-values-from-html [form data db]
+(fn html-form->data [form data db]
   (each [_ group (ipairs form)]
    (each [_ field (ipairs group.fields)]
     (local value (. data field.name))
@@ -336,7 +338,7 @@
  : file-input
  : select-input
  : render-form
- : convert-values-from-html
+ : html-form->data
  : validate-form
  : form-insert-sql-statement
  : form-update-sql-statement}