};
my %lang = (
+ '' => ['(reference)'],
nl => ["\N{REGIONAL INDICATOR SYMBOL LETTER N}\N{REGIONAL INDICATOR SYMBOL LETTER L}", 'nederlands'],
en => ["\N{REGIONAL INDICATOR SYMBOL LETTER G}\N{REGIONAL INDICATOR SYMBOL LETTER B}", 'english'],
eo => [qq'<span style="color:green">\N{BLACK STAR}</span>', 'esperanto'],
my $imagecol = $row->{image}; # backup image subcolumns
ref $_ eq 'HASH' and $_ = encode_json($_) for values %{$row};
- if (!$row->{form}) {
+ if (!$row->{form} and $row->{lang}) {
if ($row->{ref} ne 'delete') {
Alert("Empty title",
"Confirm removal by setting <em>Reference</em> to <q>delete</q>."
}
}}
else {
- $row->{lang} //= $user->{editlang}->[0];
+ $row->{lang} //= $user->{editlang}->[0] unless exists $row->{lang};
$row->{$_} = $get{$_} for keys %get;
$row->{prio} = defined $row->{ref} ? undef : 1 unless exists $row->{prio};
}