}
eval {
- my $imagerow = $row->{image} && decode_json(delete $row->{image}) || {};
+ my $imagerow = $row->{image} && JSON->new->decode(delete $row->{image}) || {};
while (my ($col, $val) = each %{$imagerow}) {
$row->{$col} = $val;
}
}
if (not $row->{ref}) {
- printf '<li><label for="%s">%s</label><div><ul class="inline" id="%1$s">',
+ printf '<li><label for="%s">%s</label><div><ul class="inline multiinput" id="%1$s">',
'trans', 'Translations';
my @children = !$row->{id} ? () :
$db->select(word => '*', {ref => $row->{id}}, 'lang, id')->hashes;