iens

commit 838b2280a8ada7c89f6b91be8543487cd986cccf
parent 8ce2cb23673fcf025bb2b75b9273124a676e4049
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun,  4 Feb 2024 10:51:54 +0000

Protection flag is checked before all updates
Diffstat:
M
src/iens.scm
 | 
29
+++++++++++++++--------------

1 file changed, 15 insertions(+), 14 deletions(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -499,8 +499,9 @@
 
 (define (set-descr* mtime entry-id type text)
   (trace `(set-descr ,mtime ,entry-id ,type ,text))
-  (exec (sql db "UPDATE entry SET type=?,description=?,mtime=? WHERE id=?;")
-        type text mtime entry-id))
+  (unless-protected entry-id
+    (exec (sql db "UPDATE entry SET type=?,description=?,mtime=? WHERE id=?;")
+          type text mtime entry-id)))
 
 (defcmd (set-descr first . args)
   "[[[mtime] entry-id] type] description" "Sets an entry description"
@@ -566,18 +567,18 @@
 (define (exec-on-tags stmt mtime entry-id tag-list)
   (with-transaction db
     (lambda ()
-      (let loop ((todo tag-list))
-        (if (null? todo)
-            (exec (sql db "UPDATE entry SET mtime=? WHERE id=?;")
-                  mtime entry-id)
-            (let ((tag-id (query fetch-value
-                                 (sql db "SELECT id FROM tag WHERE name=?;")
-                                 (car todo))))
-              (if tag-id
-                  (unless-protected entry-id
-                    (exec stmt entry-id tag-id))
-                  (write-line (conc "Unknown tag " (car todo))))
-              (loop (cdr todo)))))))
+      (unless-protected entry-id
+        (let loop ((todo tag-list))
+          (if (null? todo)
+              (exec (sql db "UPDATE entry SET mtime=? WHERE id=?;")
+                    mtime entry-id)
+              (let ((tag-id (query fetch-value
+                                   (sql db "SELECT id FROM tag WHERE name=?;")
+                                   (car todo))))
+                (if tag-id
+                    (exec stmt entry-id tag-id)
+                    (write-line (conc "Unknown tag " (car todo))))
+                (loop (cdr todo))))))))
   (print-tags entry-id))
 
 (define (retag* mtime entry-id tag-list)