iens

commit edd722dc8eda8eff4dbd7d8130110018a40a0d12
parent e72273151f26626801f4a88a064c02d222523c44
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Thu, 16 Apr 2026 18:33:14 +0000

Gruik unlock is corrected
Diffstat:
M
src/cgi.scm
 | 
33
++++++++++++++++++++++++++++-----

1 file changed, 28 insertions(+), 5 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -472,13 +472,13 @@ END-OF-CSS
     (input (@ (type "hidden") (name "id") (value ,id)))))
 
 (define (locked-post-fragment id ptime section title url)
-  `(form (@ (method "POST") (action "do-marked")
+  `(form (@ (method "POST") (action "do-locked")
             (id ,(conc "post-" id)) (class "locked-post")
-            (hx-swap "outerHTML")  (hx-post "xdo-marked"))
-    (input (@ (type "submit") (name "submit") (class lsub) (value "Unlock")))
+            (hx-swap "outerHTML")  (hx-post "xdo-locked"))
     (div (@ (class "form-body"))
       ,(post-p-fragment id ptime section title url))
-    (input (@ (type "hidden") (name "id") (value ,id)))))
+    (input (@ (type "hidden") (name "id") (value ,id)))
+    (input (@ (type "submit") (name "submit") (class rsub) (value "Unlock")))))
 
 (define (marked-post-fragment id ptime section title url)
   `(form (@ (method "POST") (action "do-marked")
@@ -597,6 +597,21 @@ END-OF-CSS
   (let ((id (db-edit)))
     (post-htmx id)))
 
+(define (do-locked)
+  (let ((id     (required-input-var "id"))
+        (submit (required-input-var "submit")))
+    (cond
+      ((string=? submit "Unlock") (db-set-mark id 2 1)
+                                  (redirect (conc "/gruik/" id)))
+      (else                       (bad-input "bad value for submit")))))
+
+(define (xdo-locked)
+  (let ((id     (required-input-var "id"))
+        (submit (required-input-var "submit")))
+    (cond
+      ((string=? submit "Unlock") (db-set-mark id 2 1) (post-htmx id))
+      (else                       (bad-input "bad value for submit")))))
+
 (define (do-marked)
   (let ((id     (required-input-var "id"))
         (submit (required-input-var "submit")))
@@ -652,6 +667,12 @@ END-OF-CSS
 (define route-xdo-edit
   (preceded-by (char-seq "xdo-edit")
                (result xdo-edit)))
+(define route-do-locked
+  (preceded-by (char-seq "do-locked")
+               (result do-locked)))
+(define route-xdo-locked
+  (preceded-by (char-seq "xdo-locked")
+               (result xdo-locked)))
 (define route-do-marked
   (preceded-by (char-seq "do-marked")
                (result do-marked)))
@@ -697,10 +718,12 @@ END-OF-CSS
                (is #\/)
                (apply any-of
                  (map (lambda (p) (followed-by p end-of-input))
-                   (list route-do-marked
+                   (list route-do-locked
+                         route-do-marked
                          route-do-undelete
                          route-do-unmarked
                          route-xdo-edit
+                         route-xdo-locked
                          route-xdo-marked
                          route-xdo-undelete
                          route-xdo-unmarked