iens

commit 6d0adfd788c122b806f8e312661d24c332972012
parent 28b1291bce7414f046a86f1c3e36f409ab657c04
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Wed, 17 Jun 2026 19:33:43 +0000

Gruik URL can be edited
Diffstat:
M
src/cgi.scm
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -444,6 +444,8 @@ END-OF-CSS
                    ,(car counts))
                 ,(conc ": " (cadr counts) "+" (caddr counts))))
            '()))
+      (p (label "URL:"
+        (input (@ (type "url") (name "url") (value ,url)))))
       (p ,(conc "Mark: " mark)
         (label (input (@ (type radio) (name mark) (value 0))) "Unmark")
         (label (input (@ (type radio) (name mark) (value 1) (checked))) "Keep")
@@ -487,18 +489,21 @@ END-OF-CSS
 (define (db-edit)
   (let ((id         (string->number (required-input-var "id")))
         (comm-url   (input-var "commenturl"))
+        (main-url   (input-var "url"))
         (retry-comm (input-var "retry-comm")))
     (when (string=? "Edit" (required-input-var "submit"))
       (exec
         (sql/transient db
           "UPDATE gruik SET mtime=?,notes=trim(notes||char(10)||?,char(10)),
-                            description=?,mark=?,comment_url=?
+                            description=?,mark=?,comment_url=?,
+                            url=COALESCE(?,url)
            WHERE mark=1 AND id=?;")
         (current-seconds)
         (required-input-var "notes")
         (if retry-comm "" (required-input-var "description"))
         (string->number (required-input-var "mark"))
         (if (and comm-url (not (string=? comm-url ""))) comm-url '())
+        (if (and main-url (not (string=? main-url ""))) main-url '())
         id)
       (when retry-comm (auto-descr id))
       (let* ((n-tags (query fetch-value (sql db "SELECT MAX(id) FROM tag")))