iens

commit 42dfdaf9427263fb6d8a9d37d501b735437b84e3
parent 0b08ce59c099acea2c60c271de1e8697fd452fa0
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Fri, 27 Mar 2026 20:39:18 +0000

Time of first mark level is recorded
Diffstat:
M
src/cgi.scm
 | 
11
++++++++---

1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -256,7 +256,8 @@ END-OF-CSS
              url TEXT NOT NULL,
              mark INTEGER NOT NULL DEFAULT 0,
              ctime INTEGER NOT NULL,
-             mtime INTEGER NOT NULL);"
+             mtime INTEGER NOT NULL,
+             stime INTEGER);"
           "CREATE UNIQUE INDEX i_gruik ON gruik(position);"
           "CREATE INDEX i_gruik_time ON gruik(ptime);"
           "CREATE TABLE gruik_tags
@@ -523,8 +524,12 @@ END-OF-CSS
     "SELECT id,mark,ptime,section,title,url FROM gruik WHERE mark >= 0;"))
 
 (define (db-set-mark id old-v new-v)
-  (exec (sql db "UPDATE gruik SET mtime=?, mark=? WHERE mark=? AND id=?;")
-        (current-seconds) new-v old-v id))
+  (exec (sql db "UPDATE gruik SET mtime=?, mark=?, stime=? WHERE mark=? AND id=?;")
+        (current-seconds)
+        new-v
+        (if (= 1 new-v) (current-seconds) '())
+        old-v
+        id))
 
 (define (xdo-edit)
   (let ((id (db-edit)))