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