git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
word edit: fix image convert arrays
[sheet.git]
/
writer.plp
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) {
<:
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" />',
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>';
}
:>
say '</dd>';
}
:>