From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 24 May 2020 04:16:28 +0000 (+0200)
Subject: word edit: fix image convert arrays
X-Git-Tag: v1.13~264
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/4fb2470993d9caaa09ab16c513af734655f070a9

word edit: fix image convert arrays
---

diff --git a/writer.plp b/writer.plp
index ce421b8..73ae3ac 100644
--- a/writer.plp
+++ b/writer.plp
@@ -55,9 +55,11 @@ my $title = $find ? "entry <small>#$Request</small>" : 'new entry';
 <:
 
 for my $col (pairs @wordcols) {
+	my $val = $row->{$col->key} // '';
+	$val = '{'.join(',', map {s/,/\\,/gr} @{$val}).'}' if ref $val eq 'ARRAY';
 	printf '<dt><label for="%s">%s</label></dt>'
 		. '<dd><input id="%1$s" name="%1$s" value="%s" />',
-		$col->key, $col->value, $row->{$col->key} // '';
+		$col->key, $col->value, $val;
 	say '</dd>';
 }
 :>