X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/52fd7eff6b7c5bc47fc33313154f1632d8ccf3a1..c106d1bc4d686595384f6b3d4cc2a28cbed70d1f:/word/edit.plp?ds=inline
diff --git a/word/edit.plp b/word/edit.plp
index f755f25..5957b1a 100644
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -72,6 +72,7 @@ my $user = eval {
};
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'\N{BLACK STAR}', 'esperanto'],
@@ -158,7 +159,7 @@ elsif (defined $post{form}) {{
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 Reference to delete
."
@@ -223,7 +224,7 @@ elsif (defined $post{form}) {{
}
}}
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};
}