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
|
(import-macros {:compile-html HTML} :macros)
(local lib (require :lib))
(local templates (require :templates))
(local dicts (require :dicts))
(fn all-orders [db]
(lib.group-by
(_G.must
(luna.db.query-assoc db
"SELECT orders.id,
orders.placement_time AS \"placement-time\",
orders.name \"contact-name\",
orders.contact,
orders.state,
order_lines.id AS \"order-line-id\",
order_lines.quantity,
products.image1,
products.name,
products.type,
products.packaging,
products.title,
products.price_per \"price-per\"
FROM orders
INNER JOIN order_lines ON orders.id = order_lines.order_id
INNER JOIN products ON products.name = order_lines.product_name
WHERE orders.state != 'cart'
ORDER BY orders.placement_time DESC, orders.id"
{}))
[:id :placement-time :state :contact-name :contact]))
(fn content [orders authenticated?]
[(HTML
[:aside {}
(templates.header "/shop/orders" authenticated?)])
(HTML
[:section {:class "content"}
[:div {:class "mb-1"} [:a {:href "/"} "⟵ Обратно к списку"]]
[:h2 {:class "product-page-title"} "Список заказов"]
(table.concat
(icollect [_ order (ipairs orders)]
(let [total (accumulate [sum 0 _ v (ipairs order.rest)]
(+ sum (* v.quantity v.price-per)))]
(HTML
[:section {:class "mb-2 font-size-0-875" }
[:h3 {:class "mb-0-25"} [:a {:href (.. "/shop/order/" order.id)} order.id]]
[:div {:class "mb-0-25 d-flex gap-0-25"}
(templates.order-state order.state)
(if (= "placed" order.state)
(HTML
[:form {:action "/shop/order/state" :method "POST"}
[:select {:name "state" :required true}
[:option {:value ""} "Новое состояние"]
[:option {:value "done"} "Выполнен"]
[:option {:value "canceled"} "Отменен"]]
[:input {:type "hidden" :name "id" :value order.id}]
[:button {:type "submit"} "Применить"]])
"")]
[:em {:class "d-block mb-0-5"}
"Дата: " order.placement-time
" / " "контакт: " order.contact
" / " "как обращаться: " order.contact-name]
(templates.order-lines order.rest)
[:div {} "—"]
[:div {} [:strong {} (.. "Итого: " (lib.format-price total) "₽")]]]))))])])
(fn render [request db authenticated?]
(if authenticated?
(values 200 {} (templates.base (content (all-orders db) authenticated?)))
(values 302 {:Location "/"} "")))
{: render}
|
