From 4fb2470993d9caaa09ab16c513af734655f070a9 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 24 May 2020 06:16:28 +0200
Subject: [PATCH] word edit: fix image convert arrays

---
 writer.plp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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>';
 }
 :>
-- 
2.30.0