X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/e4d544e9178552fdf5f7caf2d5869b502110fcd9..4fb2470993d9caaa09ab16c513af734655f070a9:/writer.plp

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