word edit: fix image convert arrays

diff --git a/writer.plp b/writer.plp
index ce421b8d691ffca1b7b35321c5e8d923935c2f19..73ae3acf3c1bbd51259c6a49eba2e0c847f64be4 100644 (file)
--- 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>';
 }
 :>