iens

commit e4ca50101956f44d93faae209ff4e763643b5fb6
parent 920a4d882f451f2117f146bf64c959dc383f3d7a
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Wed, 26 Aug 2026 18:40:27 +0000

ptime is updated when a ien is (un)protected by CGI
Diffstat:
M
src/cgi.scm
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -926,9 +926,10 @@ END-OF-CSS
         id))
 
 (define (db-set-protected id old-p new-p)
-  (exec (sql db "UPDATE entry SET mtime=?, protected=?
+  (exec (sql db "UPDATE entry SET mtime=?, ptime=?, protected=?
                  WHERE protected=? AND id=?;")
         (current-seconds)
+        (if (zero? new-p) '() (current-seconds))
         new-p
         old-p
         (- id)))