iens

commit 3f9e75e47ba07e222f1c969f22a821cd08ba3e78
parent ddcb4569fc5826f5c0a1bdad5d0b55f2ece867cf
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat, 25 Jul 2026 17:24:40 +0000

Logic error in get-gruiks is corrected
Diffstat:
M
src/get-gruiks.scm
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -57,11 +57,6 @@
                   (sql db "SELECT count(id) FROM entry
                            WHERE source=? AND url=? AND title=?;")
                   source url title))
-    (exec (sql db "UPDATE gruik
-                   SET mtime=MAX(CAST(strftime('%s', 'now') as INT),
-                                 (SELECT max(mtime) FROM gruik) + 1)
-                   WHERE section=? AND url=? AND title=? AND mark<0;")
-          source url title)
     (exec
       (sql db "INSERT INTO gruik(position, notes, ptime,
                                  section, url, title, comment_url,
@@ -79,7 +74,12 @@
                (query fetch-value
                       (sql db "SELECT count(id) FROM entry WHERE url=?;")
                       url))
-          0 -1))))
+          0 -1))
+    (exec (sql db "UPDATE gruik
+                   SET mtime=MAX(CAST(strftime('%s', 'now') as INT),
+                                 (SELECT max(mtime) FROM gruik) + 1)
+                   WHERE section=? AND url=? AND title=? AND mark<0;")
+          source url title)))
 
 (define (process-rss source items)
   (unless (null? items)