iens

commit 5675d2b30a3bdbe0278a4431c345c65822c1e41d
parent 5e19cba8d7c106cd440aebd03cbe591ffe14b8e4
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Fri, 21 Aug 2026 17:37:11 +0000

CGI reuses comment URL when available
Diffstat:
M
src/cgi.scm
 | 
13
++++++++-----

1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -387,16 +387,19 @@ END-OF-CSS
   (let ((row (query fetch-row
                     (sql db
                       (if (positive? id)
-                          "SELECT section,url FROM gruik
+                          "SELECT section,url,comment_url FROM gruik
                            WHERE id=? AND COALESCE(description,'')='';"
-                          "SELECT source,url FROM entry
+                          "SELECT section,url,section_url FROM entry
                            WHERE protected=0 AND id=?
                              AND COALESCE(description,'')='';"))
                     (abs id))))
     (unless (null? row)
-      (let ((section (car row))
-            (url     (cadr row))
-            (comm    (apply comment-link row)))
+      (let* ((section (car row))
+             (url     (cadr row))
+             (dbcomm  (caddr row))
+             (comm    (if (or (null? dbcomm) (string=? dbcomm ""))
+                          (comment-link section url)
+                          dbcomm)))
         (if comm
           (exec
             (sql db