blob: 8fcfdf1986786b66ede408cb2204fda3a3fe7120 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
(import-macros {:compile-html <>} :macros)
(local templates (require :templates))
(local dicts (require :dicts))
(local forms (require :forms))
(local lib (require :lib))
(local product-form
[{:title ""
:fields [
(forms.checkbox-input "published" "Опубликован" false
"Отображать ли товар на страницах магазина.")
(forms.number-input "position" "Позиция в списке" true 0 1000
"Чем выше число, тем позже в списке будет находиться товар.")
(forms.text-input "name" "Алиас" true 0 125
(.. "Уникальное название чая на латинице, без пробелов, "
"в нижнем регистре."))
(forms.text-input "title" "Полное название" true 0 200)
(forms.select-input "type" "Вид чая" true dicts.tea-type)
(forms.select-input "packaging" "Упаковка" true dicts.tea-packaging)
(forms.textarea-input "short_description" "Короткое описание" true 0 1000)
(forms.textarea-input "description" "Полное описание" true 0 20000)
(forms.number-input "price_per" "Цена" true 0 100000
"За штуку или грамм.")
(forms.number-input "stock" "Сколько в наличии" true 0 100000
"В штуках или граммах.")]}
{:title "Фото"
:fields [
(forms.file-input "image1" "Первое" true ".jpg" 512)
(forms.file-input "image2" "Второе" false ".jpg" 512)
(forms.file-input "image3" "Третье" false ".jpg" 512)
(forms.file-input "image4" "Четвертое" false ".jpg" 512)
(forms.file-input "image5" "Пятое" false ".jpg" 512)]}
{:title "Данные о поставщике"
:fields [
(forms.select-input "vendor" "Поставщик" false
[{:value "oz" :label "Орехово-Зуево"}
{:value "chaibez" :label "Чай без церемоний"}])
(forms.text-input "vendor_article" "Артикль или ID товара у поставщика" false
0 50)
(forms.textarea-input "vendor_description" "Описание товара от поставщика"
false 0 10000)
(forms.number-input "vendor_price_per" "Цена поставщика" false 0 100000
"За штуку или грамм.")
(forms.url-input "vendor_product_link" "Ссылка на чай у поставщика" false)]}])
(fn insert-product [tx form data]
(let [sql-and-args (forms.form-insert-sql-statement "products" form data
{:creation_time (lib.now)})]
(if sql-and-args
(_G.must (luna.db.exec-tx tx (table.unpack sql-and-args)))
(error "empty data for insert SQL-statement"))))
(fn content [form data errors authenticated?]
[(<>
[:div {:class "side"}
(templates.header "/shop" authenticated?)])
(<>
[:div {:class "content"}
[:div {:class "mb-1"}
[:a {:href "/shop"} "⟵ Обратно к списку"]]
[:h2 {} "Добавить товар"]
(forms.render-form form data errors)])])
(fn render [request db authenticated?]
(if (not authenticated?)
(values 302 {:Location "/shop"} "")
(if request.form
(let [data (forms.convert-values-from-html product-form request.form db)
errors (forms.validate-form product-form request.form)
has-errors? (not (lib.empty-table? errors))]
(if has-errors?
(values 200 {} (templates.base (content product-form request.form errors
authenticated?)))
(do
(lib.with-tx db
(fn [tx] (insert-product tx product-form request.form)))
(values 302 {:Location "/shop"} ""))))
(values 200 {} (templates.base (content product-form {} {}
authenticated?))))))
{: render : product-form}
|
