From d1187c13a378a026645d6361f893bcc25d5d2ed2 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Thu, 14 Nov 2024 23:54:30 +0600
Subject: fix search on categories pages

---
 bin/serve.fnl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin/serve.fnl')

diff --git a/bin/serve.fnl b/bin/serve.fnl
index 4c2253e..ad53afc 100644
--- a/bin/serve.fnl
+++ b/bin/serve.fnl
@@ -480,7 +480,8 @@
 
   (fn render-listing [form category]
     (local headers {:content-type "text/html"})
-    (when category (table.insert form.tags category))
+    (when (and category (= 0 (# form.tags)))
+      (tset form.tags 1 category))
 
     (local {: results : total} (query-products form form.page))
     (local spellfix-suggestion
-- 
cgit v1.2.3