From 3f5ade2e7a139bb4405437e8fc5546aafc7b05ef Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Fri, 3 Oct 2025 11:56:37 +0600
Subject: WIP shop

---
 forms.fnl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'forms.fnl')

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}
-- 
cgit v1.2.3