}
form > ul > li > label + * {
/* td */
- width: 32em;
+ width: 40em;
}
+.multiinput,
input,select {
box-sizing: border-box;
flex-grow: 1;
#thumbpreview {
width: 300px;
align-self: start;
+ flex-shrink: 0;
}
ul.popup {
}
.inline .inline {
display: flex;
+ margin: 0;
+}
+.inline.multiinput {
+ flex-wrap: wrap;
+}
+.multiinput > input {
+ width: 10em;
}
#nav > ul,
$row = {%{$row}{ qw(prio lang cat) }};
}
elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
+ sub parseinput {
+ return if not length $_[0];
+ require Encode;
+ return Encode::decode_utf8($_[0]);
+ }
+
my $replace = $row;
- $row = {%post{keys %wordcol}};
- $row->{$_} = [grep {length} @{ $post{"\@$_"} }] for grep {
- ref $wordcol{$_} eq 'HASH' and $wordcol{$_}->{-multiple}
- } keys %wordcol;
- $_ = length ? $_ : undef for values %{$row};
+ $row = {map { $_ =>
+ ref $wordcol{$_} eq 'HASH' && $wordcol{$_}->{-multiple} ?
+ [ map { parseinput($_) } $post{'@'.$_}->@* ] :
+ scalar parseinput($post{$_})
+ } keys %wordcol};
if (!$row->{form}) {
if ($row->{ref} ne 'delete') {
$db->insert(word => {
ref => $row->{id},
lang => $lang,
- form => $val,
- });
+ form => $_,
+ }) for parseinput($val);
delete $fields{$field};
}
return 1;
);
}
else {
+ my $multiple = ref $val eq 'ARRAY' || $attr->{-multiple};
return (
(map {
sprintf('<label for="%s">%s</label>', $col, $_)
} $attr->{-label} // ()),
+ $multiple ? '<span class="inline multiinput">' : (),
(map {
sprintf('<input name="%s" value="%s" />', $col, EscapeHTML($_))
} ref $val eq 'ARRAY' ? @{$val} : ()),
sprintf('<input id="%s" name="%1$s" value="%s"%s />',
- $col, ref $val eq 'ARRAY' ? '' : EscapeHTML($val), $html
+ $col, $multiple ? '' : EscapeHTML($val), $html
),
+ $multiple ? '</span>' : (),
(map {
sprintf '<img id="%spreview" src="/%s" alt="%s"%s />',
$col, $_, $row->{form}, $col eq 'source' ? ' hidden' : '';