1 files changed, 72 insertions, 0 deletions
diff --git a/pages/shop/order/list.fnl b/pages/shop/order/list.fnl
new file mode 100644
index 0000000..2f64f7b
--- /dev/null
+++ b/pages/shop/order/list.fnl
@@ -0,0 +1,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}