iens

commit aea5a18466db90a12a4176f9fb316808d14a38b8
parent 983219656c3c3955bc3fd90a70121afd6fac55f2
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Wed, 11 Mar 2026 19:40:37 +0000

Newlines form textareas are normalized
Diffstat:
M
src/cgi.scm
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -338,10 +338,10 @@ END-OF-CSS
   (when (string=? "Edit" (required-input-var "submit"))
     (exec
       (sql db/transient
-        "UPDATE gruik SET mtime=?,notes=CONCAT(notes,?),description=? WHERE id=?;")
+        "UPDATE gruik SET mtime=?,notes=trim(notes||char(10)||?,char(10)),description=? WHERE id=?;")
       (current-seconds)
-      (required-input-var "notes")
-      (required-input-var "description")
+      (string-translate (required-input-var "notes") "\r")
+      (string-translate (required-input-var "description") "\r")
       (required-input-var "id"))))
 
 (define (bad-post-fragment id ptime section title url)