iens

commit 5e19cba8d7c106cd440aebd03cbe591ffe14b8e4
parent e3077978f1428fc0c3c737503e1f37613f00ef07
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Thu, 20 Aug 2026 17:18:06 +0000

Comment URL is added by get-gruiks when missing
Diffstat:
M
src/get-gruiks.scm
 | 
13
++++++++-----

1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -65,22 +65,25 @@
 
 (define (process-gruik source url title comm)
   (when (= 0 (exec (sql db "UPDATE gruik
-                            SET lastseen=CAST(strftime('%s', 'now') as INT)
-                            WHERE section=? AND url=? AND title=?;")
-                   source url title)
+                            SET lastseen=CAST(strftime('%s', 'now') as INT),
+                                comment_url=?
+                            WHERE section=? AND url=? AND title=?
+                              AND (comment_url IS NULL OR comment_url=?1);")
+                   (if comm comm '()) source url title)
              (query fetch-value
                     (sql db "SELECT count(id) FROM entry
                              WHERE source=? AND url=? AND title=?;")
                     source url title))
     (when (= 0 (exec (sql db "UPDATE gruik
                               SET title=?,
+                                  comment_url=?,
                                   notes=trim(notes||char(10)
                                              ||'Previously “'||title||'”',
                                              char(10)),
                                   lastseen=CAST(strftime('%s', 'now') AS INT)
                               WHERE url=? AND section=?
-                                AND COALESCE(comment_url,'')=?;")
-                     title url source (if comm comm "")))
+                                AND (comment_url IS NULL OR comment_url=?2);")
+                     title (if comm comm '()) url source))
       (exec
         (sql db "INSERT INTO gruik(position, notes, ptime,
                                    section, url, title, comment_url,