commit 3f28ebbc6f1db201c5db171f3a3b3e34763a00c0
parent 91228b7486726de4e9f4df938bdce642a6fecc67
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date: Fri, 24 Apr 2026 19:01:06 +0000
Duplicate posts are displayed in main view
Diffstat:
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -557,7 +557,7 @@ END-OF-CSS
(let* ((last-id (string->number (required-input-var "last-id")))
(frags (query
(map-rows* post-fragment)
- (sql db "SELECT id,mark,ptime,section,title,url FROM gruik WHERE id > ? AND mark >= 0;")
+ (sql db "SELECT id,mark,ptime,section,title,url FROM gruik WHERE id > ? AND mark >= -5;")
last-id))
(btn (if (null? frags) "Recheck" "More")))
(htmx-output
@@ -598,7 +598,7 @@ END-OF-CSS
(catch-up)
(gruik-list-view
"Latest gruiks"
- "SELECT id,mark,ptime,section,title,url FROM gruik WHERE mark >= 0;"))
+ "SELECT id,mark,ptime,section,title,url FROM gruik WHERE mark >= -5;"))
(define (db-push-gruik str-id)
(let ((id (string->number str-id)))